ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBHeader.pas
Revision: 33
Committed: Sat Jul 18 12:30:52 2015 UTC (8 years, 8 months ago) by tony
Content type: text/x-pascal
File size: 141205 byte(s)
Log Message:
Committing updates for Release R1-3-1

File Contents

# Content
1 {************************************************************************}
2 { }
3 { Borland Delphi Visual Component Library }
4 { InterBase Express core components }
5 { }
6 { Copyright (c) 1998-2000 Inprise Corporation }
7 { }
8 { InterBase Express is based in part on the product }
9 { Free IB Components, written by Gregory H. Deatz for }
10 { Hoagland, Longo, Moran, Dunst & Doukas Company. }
11 { Free IB Components is used under license. }
12 { }
13 { The contents of this file are subject to the InterBase }
14 { Public License Version 1.0 (the "License"); you may not }
15 { use this file except in compliance with the License. You }
16 { may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17 { Software distributed under the License is distributed on }
18 { an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either }
19 { express or implied. See the License for the specific language }
20 { governing rights and limitations under the License. }
21 { The Original Code was created by InterBase Software Corporation }
22 { and its successors. }
23 { Portions created by Inprise Corporation are Copyright (C) Inprise }
24 { Corporation. All Rights Reserved. }
25 { Contributor(s): Jeff Overcash }
26 { }
27 { IBX For Lazarus (Firebird Express) }
28 { Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29 { Portions created by MWA Software are copyright McCallum Whyman }
30 { Associates Ltd 2011 }
31 { }
32 {************************************************************************}
33
34 unit IBHeader;
35
36 {$Mode Delphi}
37
38 interface
39
40 uses
41 IBExternals;
42
43
44 const
45 ISC_TRUE = 1;
46 ISC_FALSE = 0;
47 DSQL_close = 1;
48 DSQL_drop = 2;
49 {$IFDEF LINUX}
50 FIREBIRD_SO2 = 'libfbembed.so.2.5:libfbembed.so.2.1:libfbclient.so.2';
51 {$ENDIF}
52 {$IFDEF DARWIN}
53 FIREBIRD_SO2 = 'libfbclient.dylib';
54 {$ENDIF}
55 {$IFDEF WINDOWS}
56 IBASE_DLL = 'gds32.dll';
57 FIREBIRD_CLIENT = 'fbclient.dll'; {do not localize}
58 FIREBIRD_EMBEDDED = 'fbembed.dll';
59 {$ENDIF}
60
61 const
62 SQLDA_VERSION1 = 1; (* pre V6.0 SQLDA *)
63 SQLDA_VERSION2 = 2; (* V6.0 SQLDA *)
64 SQL_DIALECT_V5 = 1; (* meaning is same as DIALECT_xsqlda *)
65 SQL_DIALECT_V6_TRANSITION = 2; (* flagging anything that is delimited
66 by double quotes as an error and
67 flagging keyword DATE as an error *)
68 SQL_DIALECT_V6 = 3; (* supports SQL delimited identifier,
69 SQLDATE/DATE, TIME, TIMESTAMP,
70 CURRENT_DATE, CURRENT_TIME,
71 CURRENT_TIMESTAMP, and 64-bit exact
72 numeric type *)
73 SQL_DIALECT_CURRENT = SQL_DIALECT_V6; (* latest IB DIALECT *)
74
75
76 type
77 (**********************************)
78 (** InterBase Handle Definitions **)
79 (**********************************)
80 TISC_ATT_HANDLE = FB_API_HANDLE;
81 PISC_ATT_HANDLE = ^TISC_ATT_HANDLE;
82 TISC_BLOB_HANDLE = FB_API_HANDLE;
83 PISC_BLOB_HANDLE = ^TISC_BLOB_HANDLE;
84 TISC_DB_HANDLE = FB_API_HANDLE;
85 PISC_DB_HANDLE = ^TISC_DB_HANDLE;
86 TISC_FORM_HANDLE = FB_API_HANDLE;
87 PISC_FORM_HANDLE = ^TISC_FORM_HANDLE;
88 TISC_REQ_HANDLE = FB_API_HANDLE;
89 PISC_REQ_HANDLE = ^TISC_REQ_HANDLE;
90 TISC_STMT_HANDLE = FB_API_HANDLE;
91 PISC_STMT_HANDLE = ^TISC_STMT_HANDLE;
92 TISC_SVC_HANDLE = FB_API_HANDLE;
93 PISC_SVC_HANDLE = ^TISC_SVC_HANDLE;
94 TISC_TR_HANDLE = FB_API_HANDLE;
95 PISC_TR_HANDLE = ^TISC_TR_HANDLE;
96 TISC_WIN_HANDLE = FB_API_HANDLE;
97 PISC_WIN_HANDLE = ^TISC_WIN_HANDLE;
98 TISC_CALLBACK = procedure;
99 ISC_SVC_HANDLE = ISC_LONG;
100
101 (*******************************************************************)
102 (* Time & Date Support *)
103 (*******************************************************************)
104 const
105 TIME_SECONDS_PRECISION = 10000;
106 TIME_SECONDS_PRECISION_SCALE = -4;
107
108 type
109 ISC_DATE = Long;
110 PISC_DATE = ^ISC_DATE;
111 ISC_TIME = ULong;
112 PISC_TIME = ^ISC_TIME;
113 TISC_TIMESTAMP = record
114 timestamp_date: ISC_DATE;
115 timestamp_time: ISC_TIME;
116 end;
117 PISC_TIMESTAMP = ^TISC_TIMESTAMP;
118
119 (*********************************************************************)
120 (** Blob id structure **)
121 (*********************************************************************)
122 TGDS_QUAD = record
123 gds_quad_high : ISC_LONG;
124 gds_quad_low : UISC_LONG;
125 end;
126 TGDS__QUAD = TGDS_QUAD;
127 TISC_QUAD = TGDS_QUAD;
128 PGDS_QUAD = ^TGDS_QUAD;
129 PGDS__QUAD = ^TGDS__QUAD;
130 PISC_QUAD = ^TISC_QUAD;
131
132 TISC_ARRAY_BOUND = record
133 array_bound_lower : short;
134 array_bound_upper : short;
135 end;
136 PISC_ARRAY_BOUND = ^TISC_ARRAY_BOUND;
137 TISC_ARRAY_DESC = record
138 array_desc_dtype : UChar;
139 array_desc_scale : Char;
140 array_desc_length : UShort;
141 array_desc_field_name : array[0..31] of Char;
142 array_desc_relation_name : array[0..31] of Char;
143 array_desc_dimensions : Short;
144 array_desc_flags : Short;
145 array_desc_bounds : array[0..15] of TISC_ARRAY_BOUND;
146 end; // TISC_ARRAY_DESC
147 PISC_ARRAY_DESC = ^TISC_ARRAY_DESC;
148
149 TISC_BLOB_DESC = record
150 blob_desc_subtype : Short;
151 blob_desc_charset : Short;
152 blob_desc_segment_size : Short;
153 blob_desc_field_name : array[0..31] of UChar;
154 blob_desc_relation_name : array[0..31] of UChar;
155 end; // TISC_BLOB_DESC
156 PISC_BLOB_DESC = ^TISC_BLOB_DESC;
157
158 (*****************************)
159 (** Blob control structure **)
160 (*****************************)
161 TISC_BLOB_CTL_SOURCE_FUNCTION = function: ISC_STATUS; // ISC_FAR
162 PISC_BLOB_CTL = ^TISC_BLOB_CTL; // ISC_FAR
163 TISC_BLOB_CTL = record
164 (** Source filter **)
165 ctl_source : TISC_BLOB_CTL_SOURCE_FUNCTION;
166 (** Argument to pass to source filter **)
167 ctl_source_handle : PISC_BLOB_CTL;
168 ctl_to_sub_type : Short; (** Target type **)
169 ctl_from_sub_type : Short; (** Source type **)
170 ctl_buffer_length : UShort; (** Length of buffer **)
171 ctl_segment_length : UShort; (** Length of current segment **)
172 ctl_bpb_length : UShort; (** Length of blob parameter **)
173 (** block **)
174 ctl_bpb : PChar; (** Address of blob parameter **)
175 (** block **)
176 ctl_buffer : PUChar; (** Address of segment buffer **)
177 ctl_max_segment : ISC_LONG; (** Length of longest segment **)
178 ctl_number_segments : ISC_LONG; (** Total number of segments **)
179 ctl_total_length : ISC_LONG; (** Total length of blob **)
180 ctl_status : PISC_STATUS; (** Address of status vector **)
181 ctl_data : array[0..7] of long; (** Application specific data **)
182 end;
183 (*****************************)
184 (** Blob stream definitions **)
185 (*****************************)
186 TBSTREAM = record
187 bstr_blob : PVoid; (** Blob handle **)
188 bstr_buffer : PChar; (** Address of buffer **)
189 bstr_ptr : PChar; (** Next character **)
190 bstr_length : Short; (** Length of buffer **)
191 bstr_cnt : Short; (** Characters in buffer **)
192 bstr_mode : Char; (** (mode) ? OUTPUT : INPUT **)
193 end;
194 PBSTREAM = ^TBSTREAM;
195
196 (*****************************)
197 (** Dynamic SQL definitions **)
198 (*****************************)
199 {$IFDEF IB5_ONLY}
200 TSQLVAR = record
201 sqltype : Short;
202 sqllen : Short;
203 sqldata : PChar;
204 sqlind : PShort;
205 sqlname_length : Short;
206 sqlname : array[0..29] of Char;
207 end;
208 PSQLVAR = ^TSQLVAR;
209
210 TSQLDA = record
211 sqldaid : array[0..7] of Char;
212 sqldabc : ISC_LONG;
213 sqln : Short;
214 sqld : Short;
215 sqlvar : array[0..0] of TSQLVAR;
216 end;
217 PSQLDA = ^TSQLDA;
218 {$ENDIF}
219
220 (********************************)
221 (** Declare the extended SQLDA **)
222 (********************************)
223 TXSQLVAR = record
224 sqltype : Short; (** datatype of field **)
225 sqlscale : Short; (** scale factor **)
226 sqlsubtype : Short; (** datatype subtype - BLOBs **)
227 (** & text types only **)
228 sqllen : Short; (** length of data area **)
229 sqldata : PChar; (** address of data **)
230 sqlind : PShort; (** address of indicator **)
231 (** variable **)
232 sqlname_length : Short; (** length of sqlname field **)
233 (** name of field, name length + space for NULL **)
234 sqlname : array[0..31] of Char;
235 relname_length : Short; (** length of relation name **)
236 (** field's relation name + space for NULL **)
237 relname : array[0..31] of Char;
238 ownname_length : Short; (** length of owner name **)
239 (** relation's owner name + space for NULL **)
240 ownname : array[0..31] of Char;
241 aliasname_length : Short; (** length of alias name **)
242 (** relation's alias name + space for NULL **)
243 aliasname : array[0..31] of Char;
244 end; // TXSQLVAR
245 PXSQLVAR = ^TXSQLVAR;
246
247 TXSQLDA = record
248 version : Short; (** version of this XSQLDA **)
249 (** XSQLDA name field **)
250 sqldaid : array[0..7] of Char;
251 sqldabc : ISC_LONG; (** length in bytes of SQLDA **)
252 sqln : Short; (** number of fields allocated **)
253 sqld : Short; (** actual number of fields **)
254 (** first field address **)
255 sqlvar : array[0..0] of TXSQLVAR;
256 end; // TXSQLDA
257 PXSQLDA = ^TXSQLDA;
258
259 (********************************************************)
260 (** This record type is for passing arguments to **)
261 (** isc_start_transaction (See docs) **)
262 (********************************************************)
263 TISC_START_TRANS = record
264 db_handle : PISC_DB_HANDLE;
265 tpb_length : UShort;
266 tpb_address : PChar;
267 end;
268
269 (********************************************************)
270 (** This record type is for passing arguments to **)
271 (** isc_start_multiple (see docs) **)
272 (********************************************************)
273 TISC_TEB = record
274 db_handle : PISC_DB_HANDLE;
275 tpb_length : Long;
276 tpb_address : PChar;
277 end;
278 PISC_TEB = ^TISC_TEB;
279 TISC_TEB_ARRAY = array[0..0] of TISC_TEB;
280 PISC_TEB_ARRAY = ^TISC_TEB_ARRAY;
281
282 (*****************************)
283 (** OSRI database functions **)
284 (*****************************)
285
286 Tisc_attach_database = function (status_vector : PISC_STATUS;
287 db_name_length : Short;
288 db_name : PChar;
289 db_handle : PISC_DB_HANDLE;
290 parm_buffer_length : Short;
291 parm_buffer : PChar): ISC_STATUS;
292 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
293
294 Tisc_array_gen_sdl = function (status_vector : PISC_STATUS;
295 isc_array_desc : PISC_ARRAY_DESC;
296 isc_arg3 : PShort;
297 isc_arg4 : PChar;
298 isc_arg5 : PShort): ISC_STATUS;
299 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
300
301 Tisc_array_get_slice = function (status_vector : PISC_STATUS;
302 db_handle : PISC_DB_HANDLE;
303 trans_handle : PISC_TR_HANDLE;
304 array_id : PISC_QUAD;
305 descriptor : PISC_ARRAY_DESC;
306 dest_array : PVoid;
307 slice_length : ISC_LONG): ISC_STATUS;
308 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
309
310 Tisc_array_lookup_bounds = function (status_vector : PISC_STATUS;
311 db_handle : PISC_DB_HANDLE;
312 trans_handle : PISC_TR_HANDLE;
313 table_name,
314 column_name : PChar;
315 descriptor : PISC_ARRAY_DESC): ISC_STATUS;
316 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
317
318 Tisc_array_lookup_desc = function (status_vector : PISC_STATUS;
319 db_handle : PISC_DB_HANDLE;
320 trans_handle : PISC_TR_HANDLE;
321 table_name,
322 column_name : PChar;
323 descriptor : PISC_ARRAY_DESC): ISC_STATUS;
324 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
325
326 Tisc_array_set_desc = function (status_vector : PISC_STATUS;
327 table_name : PChar;
328 column_name : PChar;
329 sql_dtype,
330 sql_length,
331 sql_dimensions : PShort;
332 descriptor : PISC_ARRAY_DESC): ISC_STATUS;
333 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
334
335 Tisc_array_put_slice = function (status_vector : PISC_STATUS;
336 db_handle : PISC_DB_HANDLE;
337 trans_handle : PISC_TR_HANDLE;
338 array_id : PISC_QUAD;
339 descriptor : PISC_ARRAY_DESC;
340 source_array : PVoid;
341 slice_length : PISC_LONG): ISC_STATUS;
342 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
343
344 Tisc_blob_default_desc = procedure (descriptor : PISC_BLOB_DESC;
345 table_name : PUChar;
346 column_name : PUChar);
347 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
348
349 Tisc_blob_gen_bpb = function (status_vector : PISC_STATUS;
350 to_descriptor,
351 from_descriptor : PISC_BLOB_DESC;
352 bpb_buffer_length : UShort;
353 bpb_buffer : PUChar;
354 bpb_length : PUShort): ISC_STATUS;
355 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
356
357 Tisc_blob_info = function (status_vector : PISC_STATUS;
358 blob_handle : PISC_BLOB_HANDLE;
359 item_list_buffer_length : Short;
360 item_list_buffer : PChar;
361 result_buffer_length : Short;
362 result_buffer : PChar): ISC_STATUS;
363 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
364
365 Tisc_blob_lookup_desc = function (status_vector : PISC_STATUS;
366 db_handle : PISC_DB_HANDLE;
367 trans_handle : PISC_TR_HANDLE;
368 table_name,
369 column_name : PChar;
370 descriptor : PISC_BLOB_DESC;
371 global : PUChar): ISC_STATUS;
372 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
373
374 Tisc_blob_set_desc = function (status_vector : PISC_STATUS;
375 table_name,
376 column_name : PChar;
377 subtype,
378 charset,
379 segment_size : Short;
380 descriptor : PISC_BLOB_DESC): ISC_STATUS;
381 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
382
383 Tisc_cancel_blob = function (status_vector : PISC_STATUS;
384 blob_handle : PISC_BLOB_HANDLE): ISC_STATUS;
385 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
386
387 Tisc_cancel_events = function (status_vector : PISC_STATUS;
388 db_handle : PISC_DB_HANDLE;
389 event_id : PISC_LONG): ISC_STATUS;
390 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
391
392 Tisc_close_blob = function (status_vector : PISC_STATUS;
393 blob_handle : PISC_BLOB_HANDLE): ISC_STATUS;
394 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
395
396 Tisc_commit_retaining = function (status_vector : PISC_STATUS;
397 tran_handle : PISC_TR_HANDLE): ISC_STATUS;
398 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
399
400 Tisc_commit_transaction = function (status_vector : PISC_STATUS;
401 tran_handle : PISC_TR_HANDLE): ISC_STATUS;
402 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
403
404 Tisc_create_blob = function (status_vector : PISC_STATUS;
405 db_handle : PISC_DB_HANDLE;
406 tran_handle : PISC_TR_HANDLE;
407 blob_handle : PISC_BLOB_HANDLE;
408 blob_id : PISC_QUAD): ISC_STATUS;
409 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
410
411 Tisc_create_blob2 = function (status_vector : PISC_STATUS;
412 db_handle : PISC_DB_HANDLE;
413 tran_handle : PISC_TR_HANDLE;
414 blob_handle : PISC_BLOB_HANDLE;
415 blob_id : PISC_QUAD;
416 bpb_length : Short;
417 bpb_address : PChar): ISC_STATUS;
418 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
419
420 Tisc_create_database = function (status_vector : PISC_STATUS;
421 isc_arg2 : Short;
422 isc_arg3 : PChar;
423 db_handle : PISC_DB_HANDLE;
424 isc_arg5 : Short;
425 isc_arg6 : PChar;
426 isc_arg7 : Short): ISC_STATUS;
427 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
428
429 Tisc_database_info = function (status_vector : PISC_STATUS;
430 db_handle : PISC_DB_HANDLE;
431 item_list_buffer_length : Short;
432 item_list_buffer : PChar;
433 result_buffer_length : Short;
434 result_buffer : PChar): ISC_STATUS;
435 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
436
437 Tisc_decode_date = procedure (ib_date: PISC_QUAD;
438 tm_date: PCTimeStructure);
439 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
440
441 Tisc_decode_sql_date = procedure (ib_date: PISC_DATE;
442 tm_date: PCTimeStructure);
443 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
444
445 Tisc_decode_sql_time = procedure (ib_time: PISC_TIME;
446 tm_date: PCTimeStructure);
447 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
448
449 Tisc_decode_timestamp = procedure (ib_timestamp: PISC_TIMESTAMP;
450 tm_date: PCTimeStructure);
451 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
452
453 Tisc_detach_database = function (status_vector : PISC_STATUS;
454 db_handle : PISC_DB_HANDLE): ISC_STATUS;
455 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
456
457 Tisc_drop_database = function (status_vector : PISC_STATUS;
458 db_handle : PISC_DB_HANDLE): ISC_STATUS;
459 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
460
461 Tisc_dsql_allocate_statement = function (status_vector : PISC_STATUS;
462 db_handle : PISC_DB_HANDLE;
463 stmt_handle : PISC_STMT_HANDLE): ISC_STATUS;
464 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
465
466 Tisc_dsql_alloc_statement2 = function (status_vector : PISC_STATUS;
467 db_handle : PISC_DB_HANDLE;
468 stmt_handle : PISC_STMT_HANDLE): ISC_STATUS;
469 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
470
471 Tisc_dsql_describe = function (status_vector : PISC_STATUS;
472 stmt_handle : PISC_STMT_HANDLE;
473 dialect : UShort;
474 xsqlda : PXSQLDA): ISC_STATUS;
475 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
476
477 Tisc_dsql_describe_bind = function (status_vector : PISC_STATUS;
478 stmt_handle : PISC_STMT_HANDLE;
479 dialect : UShort;
480 xsqlda : PXSQLDA): ISC_STATUS;
481 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
482
483 Tisc_dsql_exec_immed2 = function (status_vector : PISC_STATUS;
484 db_handle : PISC_DB_HANDLE;
485 tran_handle : PISC_TR_HANDLE;
486 length : UShort;
487 statement : PChar;
488 dialect : UShort;
489 in_xsqlda,
490 out_xsqlda : PXSQLDA): ISC_STATUS;
491 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
492
493 Tisc_dsql_execute = function (status_vector : PISC_STATUS;
494 tran_handle : PISC_TR_HANDLE;
495 stmt_handle : PISC_STMT_HANDLE;
496 dialect : UShort;
497 xsqlda : PXSQLDA): ISC_STATUS;
498 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
499
500 Tisc_dsql_execute2 = function (status_vector : PISC_STATUS;
501 tran_handle : PISC_TR_HANDLE;
502 stmt_handle : PISC_STMT_HANDLE;
503 dialect : UShort;
504 in_xsqlda,
505 out_xsqlda : PXSQLDA): ISC_STATUS;
506 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
507
508 Tisc_dsql_execute_immediate = function (status_vector : PISC_STATUS;
509 db_handle : PISC_DB_HANDLE;
510 tran_handle : PISC_TR_HANDLE;
511 length : UShort;
512 statement : PChar;
513 dialect : UShort;
514 xsqlda : PXSQLDA): ISC_STATUS;
515 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
516
517 Tisc_dsql_fetch = function (status_vector : PISC_STATUS;
518 stmt_handle : PISC_STMT_HANDLE;
519 dialect : UShort;
520 xsqlda : PXSQLDA): ISC_STATUS;
521 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
522
523 (*$ifdef SCROLLABLE_CURSORS*)
524 Tisc_dsql_fetch2 = function (status_vector : PISC_STATUS;
525 stmt_handle : PISC_STMT_HANDLE;
526 dialect : UShort;
527 xsqlda : PXSQLDA;
528 isc_arg5 : UShort;
529 isc_arg6 : Long): ISC_STATUS;
530 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
531 (*$endif*)
532
533 Tisc_dsql_finish = function (db_handle : PISC_DB_HANDLE): ISC_STATUS;
534 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
535
536 Tisc_dsql_free_statement = function (status_vector : PISC_STATUS;
537 stmt_handle : PISC_STMT_HANDLE;
538 options : UShort): ISC_STATUS;
539 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
540
541 Tisc_dsql_insert = function (status_vector : PISC_STATUS;
542 stmt_handle : PISC_STMT_HANDLE;
543 arg3 : UShort;
544 xsqlda : PXSQLDA): ISC_STATUS;
545 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
546
547 Tisc_dsql_prepare = function (status_vector : PISC_STATUS;
548 tran_handle : PISC_TR_HANDLE;
549 stmt_handle : PISC_STMT_HANDLE;
550 length : UShort;
551 statement : PChar;
552 dialect : UShort;
553 xsqlda : PXSQLDA): ISC_STATUS;
554 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
555
556 Tisc_dsql_set_cursor_name = function (status_vector : PISC_STATUS;
557 stmt_handle : PISC_STMT_HANDLE;
558 cursor_name : PChar;
559 _type : UShort): ISC_STATUS;
560 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
561
562 Tisc_dsql_sql_info = function (status_vector : PISC_STATUS;
563 stmt_handle : PISC_STMT_HANDLE;
564 item_length : Short;
565 items : PChar;
566 buffer_length : Short;
567 buffer : PChar): ISC_STATUS;
568 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
569
570 Tisc_encode_date = procedure (tm_date : PCTimeStructure;
571 ib_date : PISC_QUAD);
572 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
573
574 Tisc_encode_sql_date = procedure (tm_date : PCTimeStructure;
575 ib_date : PISC_DATE);
576 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
577
578 Tisc_encode_sql_time = procedure (tm_date : PCTimeStructure;
579 ib_time : PISC_TIME);
580 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
581
582 Tisc_encode_timestamp = procedure (tm_date : PCTimeStructure;
583 ib_timestamp : PISC_TIMESTAMP);
584 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
585
586 Tisc_event_block = function (event_buffer : PPChar;
587 result_buffer : PPChar;
588 id_count : UShort):ISC_LONG;
589 varargs; cdecl;
590
591 Tisc_event_counts = procedure (status_vector : PISC_LONG;
592 buffer_length : Short;
593 event_buffer : PChar;
594 result_buffer : PChar);
595 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
596
597 Tisc_expand_dpb = procedure (dpb : PPChar;
598 dpb_length : PShort;
599 item_list : array of Pointer);
600 cdecl;
601
602 Tisc_modify_dpb = function (dpb : PPChar;
603 isc_arg2,
604 isc_arg3 : PShort;
605 isc_arg4 : UShort;
606 isc_arg5 : PChar;
607 isc_arg6 : Short): Int;
608 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
609
610 Tisc_free = function (isc_arg1 : PChar): ISC_LONG;
611 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
612
613 Tisc_get_segment = function (status_vector : PISC_STATUS;
614 blob_handle : PISC_BLOB_HANDLE;
615 actual_seg_length : PUShort;
616 seg_buffer_length : UShort;
617 seg_buffer : PChar): ISC_STATUS;
618 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
619
620 Tisc_get_slice = function (status_vector : PISC_STATUS;
621 db_handle : PISC_DB_HANDLE;
622 tran_handle : PISC_TR_HANDLE;
623 isc_arg4 : PISC_QUAD;
624 isc_arg5 : Short;
625 isc_arg6 : PChar;
626 isc_arg7 : Short;
627 isc_arg8 : PISC_LONG;
628 isc_arg9 : ISC_LONG;
629 isc_arg10 : PVoid;
630 isc_arg11 : PISC_LONG): ISC_STATUS;
631 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
632
633 Tisc_interprete = function (buffer : PChar;
634 status_vector : PPISC_STATUS): ISC_STATUS;
635 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
636
637 Tisc_open_blob = function (status_vector : PISC_STATUS;
638 db_handle : PISC_DB_HANDLE;
639 tran_handle : PISC_TR_HANDLE;
640 blob_handle : PISC_BLOB_HANDLE;
641 blob_id : PISC_QUAD): ISC_STATUS;
642 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
643
644 Tisc_open_blob2 = function (status_vector : PISC_STATUS;
645 db_handle : PISC_DB_HANDLE;
646 tran_handle : PISC_TR_HANDLE;
647 blob_handle : PISC_BLOB_HANDLE;
648 blob_id : PISC_QUAD;
649 bpb_length : Short;
650 bpb_buffer : PChar): ISC_STATUS;
651 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
652
653 Tisc_prepare_transaction2 = function (status_vector : PISC_STATUS;
654 tran_handle : PISC_TR_HANDLE;
655 msg_length : Short;
656 msg : PChar): ISC_STATUS;
657 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
658
659 Tisc_print_sqlerror = procedure (sqlcode : Short;
660 status_vector : PISC_STATUS);
661 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
662
663 Tisc_print_status = function (status_vector : PISC_STATUS): ISC_STATUS;
664 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
665
666 Tisc_put_segment = function (status_vector : PISC_STATUS;
667 blob_handle : PISC_BLOB_HANDLE;
668 seg_buffer_len : UShort;
669 seg_buffer : PChar): ISC_STATUS;
670 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
671
672 Tisc_put_slice = function (status_vector : PISC_STATUS;
673 db_handle : PISC_DB_HANDLE;
674 tran_handle : PISC_TR_HANDLE;
675 isc_arg4 : PISC_QUAD;
676 isc_arg5 : Short;
677 isc_arg6 : PChar;
678 isc_arg7 : Short;
679 isc_arg8 : PISC_LONG;
680 isc_arg9 : ISC_LONG;
681 isc_arg10 : PVoid): ISC_STATUS;
682 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
683
684 Tisc_que_events = function (status_vector : PISC_STATUS;
685 db_handle : PISC_DB_HANDLE;
686 event_id : PISC_LONG;
687 length : Short;
688 event_buffer : PChar;
689 event_function : TISC_CALLBACK;
690 event_function_arg : PVoid): ISC_STATUS;
691 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
692
693 Tisc_rollback_retaining = function (status_vector : PISC_STATUS;
694 tran_handle : PISC_TR_HANDLE): ISC_STATUS;
695 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
696
697 Tisc_rollback_transaction = function (status_vector : PISC_STATUS;
698 tran_handle : PISC_TR_HANDLE): ISC_STATUS;
699 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
700
701 Tisc_start_multiple = function (status_vector : PISC_STATUS;
702 tran_handle : PISC_TR_HANDLE;
703 db_handle_count : Short;
704 teb_vector_address : PISC_TEB): ISC_STATUS;
705 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
706
707 Tisc_start_transaction = function (status_vector : PISC_STATUS;
708 tran_handle : PISC_TR_HANDLE;
709 db_handle_count : Short;
710 db_handle : PISC_DB_HANDLE;
711 tpb_length : UShort;
712 tpb_address : PChar): ISC_STATUS;
713 cdecl;
714
715 Tisc_sqlcode = function (status_vector : PISC_STATUS): ISC_LONG;
716 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
717
718
719 Tisc_sql_interprete = procedure (sqlcode : Short;
720 buffer : PChar;
721 buffer_length : Short);
722 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
723
724 Tisc_transaction_info = function (status_vector : PISC_STATUS;
725 tran_handle : PISC_TR_HANDLE;
726 item_list_buffer_length : Short;
727 item_list_buffer : PChar;
728 result_buffer_length : Short;
729 result_buffer : PChar): ISC_STATUS;
730 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
731
732 Tisc_transact_request = function (status_vector : PISC_STATUS;
733 db_handle : PISC_DB_HANDLE;
734 tran_handle : PISC_TR_HANDLE;
735 isc_arg4 : UShort;
736 isc_arg5 : PChar;
737 isc_arg6 : UShort;
738 isc_arg7 : PChar;
739 isc_arg8 : UShort;
740 isc_arg9 : PChar): ISC_STATUS;
741 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
742
743 Tisc_vax_integer = function (buffer : PChar;
744 length : Short): ISC_LONG;
745 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
746
747 Tisc_portable_integer = function (buffer : PChar;
748 length : Short): ISC_INT64;
749 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
750
751 (***************************************)
752 (** Security Functions and structures **)
753 (***************************************)
754
755 const
756 sec_uid_spec = $01;
757 sec_gid_spec = $02;
758 sec_server_spec = $04;
759 sec_password_spec = $08;
760 sec_group_name_spec = $10;
761 sec_first_name_spec = $20;
762 sec_middle_name_spec = $40;
763 sec_last_name_spec = $80;
764 sec_dba_user_name_spec = $100;
765 sec_dba_password_spec = $200;
766
767 sec_protocol_tcpip = 1;
768 sec_protocol_netbeui = 2;
769 sec_protocol_spx = 3;
770 sec_protocol_local = 4;
771
772 type
773 TUserSecData = record
774 sec_flags: Short; (** which fields are specified **)
775 uid: Int; (** the user's id **)
776 gid: int; (** the user's group id **)
777 protocol: Int; (** protocol to use for connection **)
778 server: PChar; (** server to administer **)
779 user_name: PChar; (** the user's name **)
780 password: PChar; (** the user's password **)
781 group_name: PChar; (** the group name **)
782 first_name: PChar; (** the user's first name **)
783 middle_name: PChar; (** the user's middle name **)
784 last_name: PChar; (** the user's last name **)
785 dba_user_name: PChar; (** the dba user name **)
786 dba_password: PChar; (** the dba password **)
787 end;
788 PUserSecData = ^TUserSecData;
789
790 Tisc_add_user = function (status_vector : PISC_STATUS;
791 user_sec_data : PUserSecData): ISC_STATUS;
792 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
793
794 Tisc_delete_user = function (status_vector : PISC_STATUS;
795 user_sec_data : PUserSecData): ISC_STATUS;
796 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
797
798 Tisc_modify_user = function (status_vector : PISC_STATUS;
799 user_sec_data : PUserSecData): ISC_STATUS;
800 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
801
802 (************************************)
803 (** Other OSRI functions **)
804 (************************************)
805
806 Tisc_compile_request = function (status_vector : PISC_STATUS;
807 db_handle : PISC_DB_HANDLE;
808 request_handle : PISC_REQ_HANDLE;
809 isc_arg4 : Short;
810 isc_arg5 : PChar): ISC_STATUS;
811 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
812
813 Tisc_compile_request2 = function (status_vector : PISC_STATUS;
814 db_handle : PISC_DB_HANDLE;
815 request_handle : PISC_REQ_HANDLE;
816 isc_arg4 : Short;
817 isc_arg5 : PChar): ISC_STATUS;
818 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
819
820 Tisc_ddl = function (status_vector : PISC_STATUS;
821 db_handle : PISC_DB_HANDLE;
822 tran_handle : PISC_TR_HANDLE;
823 isc_arg4 : Short;
824 isc_arg5 : PChar): ISC_STATUS;
825 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
826
827 Tisc_prepare_transaction = function (status_vector : PISC_STATUS;
828 tran_handle : PISC_TR_HANDLE): ISC_STATUS;
829 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
830
831
832 Tisc_receive = function (status_vector : PISC_STATUS;
833 request_handle : PISC_REQ_HANDLE;
834 isc_arg3,
835 isc_arg4 : Short;
836 isc_arg5 : PVoid;
837 isc_arg6 : Short): ISC_STATUS;
838 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
839
840 Tisc_receive2 = function (status_vector : PISC_STATUS;
841 request_handle : PISC_REQ_HANDLE;
842 isc_arg3,
843 isc_arg4 : Short;
844 isc_arg5 : PVoid;
845 isc_arg6,
846 isc_arg7 : Short;
847 isc_arg8 : Long): ISC_STATUS;
848 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
849
850 Tisc_reconnect_transaction = function (status_vector : PISC_STATUS;
851 db_handle : PISC_DB_HANDLE;
852 tran_handle : PISC_TR_HANDLE;
853 isc_arg4 : Short;
854 isc_arg5 : PChar): ISC_STATUS;
855 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
856
857 Tisc_release_request = function (status_vector : PISC_STATUS;
858 request_handle : PISC_REQ_HANDLE): ISC_STATUS;
859 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
860
861 Tisc_request_info = function (status_vector : PISC_STATUS;
862 request_handle : PISC_REQ_HANDLE;
863 isc_arg3 : Short;
864 isc_arg4 : Short;
865 isc_arg5 : PChar;
866 isc_arg6 : Short;
867 isc_arg7 : PChar): ISC_STATUS;
868 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
869
870 Tisc_seek_blob = function (status_vector : PISC_STATUS;
871 blob_handle : PISC_BLOB_HANDLE;
872 isc_arg3 : Short;
873 isc_arg4 : ISC_LONG;
874 isc_arg5 : PISC_LONG): ISC_STATUS;
875 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
876
877 Tisc_send = function (status_vector : PISC_STATUS;
878 request_handle : PISC_REQ_HANDLE;
879 isc_arg3,
880 isc_arg4 : Short;
881 isc_arg5 : PVoid;
882 isc_arg6 : Short): ISC_STATUS;
883 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
884
885 Tisc_start_and_send = function (status_vector : PISC_STATUS;
886 request_handle : PISC_REQ_HANDLE;
887 tran_handle : PISC_TR_HANDLE;
888 isc_arg4,
889 isc_arg5 : Short;
890 isc_arg6 : PVoid;
891 isc_arg7 : Short): ISC_STATUS;
892 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
893
894 Tisc_start_request = function (status_vector : PISC_STATUS;
895 request_handle : PISC_REQ_HANDLE;
896 tran_handle : PISC_TR_HANDLE;
897 isc_arg4 : Short): ISC_STATUS;
898 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
899
900 Tisc_unwind_request = function (status_vector : PISC_STATUS;
901 tran_handle : PISC_TR_HANDLE;
902 isc_arg3 : Short): ISC_STATUS;
903 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
904
905 Tisc_wait_for_event = function (status_vector : PISC_STATUS;
906 db_handle : PISC_DB_HANDLE;
907 length : Short;
908 event_buffer,
909 result_buffer : PChar): ISC_STATUS;
910 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
911
912 (*******************************)
913 (** Other Sql functions **)
914 (*******************************)
915 {$IFDEF IB5_ONLY}
916 Tisc_close = function (status_vector : PISC_STATUS;
917 isc_arg2 : PChar): ISC_STATUS;
918 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
919
920 Tisc_declare = function (status_vector : PISC_STATUS;
921 isc_arg2,
922 isc_arg3 : PChar): ISC_STATUS;
923 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
924
925 Tisc_describe = function (status_vector : PISC_STATUS;
926 isc_arg2 : PChar;
927 isc_arg3 : PSQLDA): ISC_STATUS;
928 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
929
930 Tisc_describe_bind = function (status_vector : PISC_STATUS;
931 isc_arg2 : PChar;
932 isc_arg3 : PSQLDA): ISC_STATUS;
933 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
934
935 Tisc_execute = function (status_vector : PISC_STATUS;
936 tran_handle : PISC_TR_HANDLE;
937 isc_arg3 : PChar;
938 isc_arg4 : PSQLDA): ISC_STATUS;
939 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
940
941 Tisc_execute_immediate = function (status_vector : PISC_STATUS;
942 db_handle : PISC_DB_HANDLE;
943 tran_handle : PISC_TR_HANDLE;
944 isc_arg4 : PShort;
945 isc_arg5 : PChar): ISC_STATUS;
946 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
947
948 Tisc_fetch = function (status_vector : PISC_STATUS;
949 isc_arg2 : PChar;
950 isc_arg3 : PSQLDA): ISC_STATUS;
951 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
952
953 Tisc_open = function (status_vector : PISC_STATUS;
954 tran_handle : PISC_TR_HANDLE;
955 isc_arg3 : PChar;
956 isc_arg4 : PSQLDA): ISC_STATUS;
957 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
958
959 Tisc_prepare = function (status_vector : PISC_STATUS;
960 db_handle : PISC_DB_HANDLE;
961 tran_handle : PISC_TR_HANDLE;
962 isc_arg4 : PChar;
963 isc_arg5 : PShort;
964 isc_arg6 : PChar;
965 isc_arg7 : PSQLDA): ISC_STATUS;
966 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
967 {$ELSE}
968 Tisc_close = function (status_vector : PISC_STATUS;
969 isc_arg2 : PChar): ISC_STATUS;
970 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
971
972 Tisc_declare = function (status_vector : PISC_STATUS;
973 isc_arg2,
974 isc_arg3 : PChar): ISC_STATUS;
975 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
976
977 Tisc_describe = function (status_vector : PISC_STATUS;
978 isc_arg2 : PChar;
979 isc_arg3 : PXSQLDA): ISC_STATUS;
980 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
981
982 Tisc_describe_bind = function (status_vector : PISC_STATUS;
983 isc_arg2 : PChar;
984 isc_arg3 : PXSQLDA): ISC_STATUS;
985 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
986
987 Tisc_execute = function (status_vector : PISC_STATUS;
988 tran_handle : PISC_TR_HANDLE;
989 isc_arg3 : PChar;
990 isc_arg4 : PXSQLDA): ISC_STATUS;
991 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
992
993 Tisc_execute_immediate = function (status_vector : PISC_STATUS;
994 db_handle : PISC_DB_HANDLE;
995 tran_handle : PISC_TR_HANDLE;
996 isc_arg4 : PShort;
997 isc_arg5 : PChar): ISC_STATUS;
998 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
999
1000 Tisc_fetch = function (status_vector : PISC_STATUS;
1001 isc_arg2 : PChar;
1002 isc_arg3 : PXSQLDA): ISC_STATUS;
1003 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1004
1005 Tisc_open = function (status_vector : PISC_STATUS;
1006 tran_handle : PISC_TR_HANDLE;
1007 isc_arg3 : PChar;
1008 isc_arg4 : PXSQLDA): ISC_STATUS;
1009 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1010
1011 Tisc_prepare = function (status_vector : PISC_STATUS;
1012 db_handle : PISC_DB_HANDLE;
1013 tran_handle : PISC_TR_HANDLE;
1014 isc_arg4 : PChar;
1015 isc_arg5 : PShort;
1016 isc_arg6 : PChar;
1017 isc_arg7 : PXSQLDA): ISC_STATUS;
1018 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1019 {$ENDIF}
1020
1021 (***************************************)
1022 (** Other Dynamic sql functions **)
1023 (***************************************)
1024
1025 Tisc_dsql_execute_m = function (status_vector : PISC_STATUS;
1026 tran_handle : PISC_TR_HANDLE;
1027 statement_handle : PISC_STMT_HANDLE;
1028 isc_arg4 : UShort;
1029 isc_arg5 : PChar;
1030 isc_arg6 : UShort;
1031 isc_arg7 : UShort;
1032 isc_arg8 : PChar): ISC_STATUS;
1033 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1034
1035 Tisc_dsql_execute2_m = function (status_vector : PISC_STATUS;
1036 tran_handle : PISC_TR_HANDLE;
1037 statement_handle : PISC_STMT_HANDLE;
1038 isc_arg4 : UShort;
1039 isc_arg5 : PChar;
1040 isc_arg6 : UShort;
1041 isc_arg7 : UShort;
1042 isc_arg8 : PChar;
1043 isc_arg9 : UShort;
1044 isc_arg10 : PChar;
1045 isc_arg11 : UShort;
1046 isc_arg12 : UShort;
1047 isc_arg13 : PChar): ISC_STATUS;
1048 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1049
1050 Tisc_dsql_execute_immediate_m = function (status_vector : PISC_STATUS;
1051 db_handle : PISC_DB_HANDLE;
1052 tran_handle : PISC_TR_HANDLE;
1053 isc_arg4 : UShort;
1054 isc_arg5 : PChar;
1055 isc_arg6 : UShort;
1056 isc_arg7 : UShort;
1057 isc_arg8 : PChar;
1058 isc_arg9 : UShort;
1059 isc_arg10 : UShort;
1060 isc_arg11 : PChar): ISC_STATUS;
1061 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1062
1063 Tisc_dsql_exec_immed3_m = function (status_vector : PISC_STATUS;
1064 db_handle : PISC_DB_HANDLE;
1065 tran_handle : PISC_TR_HANDLE;
1066 isc_arg4 : UShort;
1067 isc_arg5 : PChar;
1068 isc_arg6 : UShort;
1069 isc_arg7 : UShort;
1070 isc_arg8 : PChar;
1071 isc_arg9 : UShort;
1072 isc_arg10 : UShort;
1073 isc_arg11 : PChar;
1074 isc_arg12 : UShort;
1075 isc_arg13 : PChar;
1076 isc_arg14 : UShort;
1077 isc_arg15 : UShort;
1078 isc_arg16 : PChar): ISC_STATUS;
1079 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1080
1081 Tisc_dsql_fetch_m = function (status_vector : PISC_STATUS;
1082 statement_handle : PISC_STMT_HANDLE;
1083 isc_arg3 : UShort;
1084 isc_arg4 : PChar;
1085 isc_arg5 : UShort;
1086 isc_arg6 : UShort;
1087 isc_arg7 : PChar): ISC_STATUS;
1088 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1089
1090 (*$ifdef SCROLLABLE_CURSORS*)
1091 Tisc_dsql_fetch2_m = function (status_vector : PISC_STATUS;
1092 statement_handle : PISC_STMT_HANDLE;
1093 isc_arg3 : UShort;
1094 isc_arg4 : PChar;
1095 isc_arg5 : UShort;
1096 isc_arg6 : UShort;
1097 isc_arg7 : PChar;
1098 isc_arg8 : UShort;
1099 isc_arg9 : Long): ISC_STATUS;
1100 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1101 (*$endif*)
1102
1103 Tisc_dsql_insert_m = function (status_vector : PISC_STATUS;
1104 statement_handle : PISC_STMT_HANDLE;
1105 isc_arg3 : UShort;
1106 isc_arg4 : PChar;
1107 isc_arg5 : UShort;
1108 isc_arg6 : UShort;
1109 isc_arg7 : PChar): ISC_STATUS;
1110 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1111
1112 Tisc_dsql_prepare_m = function (status_vector : PISC_STATUS;
1113 tran_handle : PISC_TR_HANDLE;
1114 statement_handle : PISC_STMT_HANDLE;
1115 isc_arg4 : UShort;
1116 isc_arg5 : PChar;
1117 isc_arg6 : UShort;
1118 isc_arg7 : UShort;
1119 isc_arg8 : PChar;
1120 isc_arg9 : UShort;
1121 isc_arg10 : PChar): ISC_STATUS;
1122 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1123
1124 Tisc_dsql_release = function (status_vector : PISC_STATUS;
1125 isc_arg2 : PChar): ISC_STATUS;
1126 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1127
1128 Tisc_embed_dsql_close = function(status_vector : PISC_STATUS;
1129 isc_arg2 : PChar): ISC_STATUS;
1130 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1131
1132 Tisc_embed_dsql_declare = function (status_vector : PISC_STATUS;
1133 isc_arg2 : PChar;
1134 isc_arg3 : PChar): ISC_STATUS;
1135 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1136
1137 Tisc_embed_dsql_describe = function (status_vector : PISC_STATUS;
1138 isc_arg2 : PChar;
1139 isc_arg3 : UShort;
1140 isc_arg4 : PXSQLDA): ISC_STATUS;
1141 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1142
1143 Tisc_embed_dsql_describe_bind = function (status_vector : PISC_STATUS;
1144 isc_arg2 : PChar;
1145 isc_arg3 : UShort;
1146 isc_arg4 : PXSQLDA): ISC_STATUS;
1147 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1148
1149 Tisc_embed_dsql_execute = function (status_vector : PISC_STATUS;
1150 tran_handle : PISC_TR_HANDLE;
1151 isc_arg3 : PChar;
1152 isc_arg4 : UShort;
1153 isc_arg5 : PXSQLDA): ISC_STATUS;
1154 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1155
1156 Tisc_embed_dsql_execute2 = function (status_vector : PISC_STATUS;
1157 tran_handle : PISC_TR_HANDLE;
1158 isc_arg3 : PChar;
1159 isc_arg4 : UShort;
1160 isc_arg5 : PXSQLDA;
1161 isc_arg6 : PXSQLDA): ISC_STATUS;
1162 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1163
1164 Tisc_embed_dsql_execute_immed = function (status_vector : PISC_STATUS;
1165 db_handle : PISC_DB_HANDLE;
1166 tran_handle : PISC_TR_HANDLE;
1167 isc_arg4 : UShort;
1168 isc_arg5 : PChar;
1169 isc_arg6 : UShort;
1170 isc_arg7 : PXSQLDA): ISC_STATUS;
1171 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1172
1173 Tisc_embed_dsql_fetch = function(status_vector : PISC_STATUS;
1174 isc_arg2 : PChar;
1175 isc_arg3 : UShort;
1176 isc_arg4 : PXSQLDA): ISC_STATUS;
1177 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1178
1179 (*$ifdef SCROLLABLE_CURSORS*)
1180 Tisc_embed_dsql_fetch2 = function (status_vector : PISC_STATUS;
1181 isc_arg2 : PChar;
1182 isc_arg3 : UShort;
1183 isc_arg4 : PXSQLDA;
1184 isc_arg5 : UShort;
1185 isc_arg6 : Long): ISC_STATUS;
1186 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1187 (*$endif*)
1188
1189 Tisc_embed_dsql_open = function (status_vector : PISC_STATUS;
1190 tran_handle : PISC_TR_HANDLE;
1191 isc_arg3 : PChar;
1192 isc_arg4 : UShort;
1193 isc_arg5 : PXSQLDA): ISC_STATUS;
1194 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1195
1196 Tisc_embed_dsql_open2 = function (status_vector : PISC_STATUS;
1197 tran_handle : PISC_TR_HANDLE;
1198 isc_arg3 : PChar;
1199 isc_arg4 : UShort;
1200 isc_arg5 : PXSQLDA;
1201 isc_arg6 : PXSQLDA): ISC_STATUS;
1202 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1203
1204 Tisc_embed_dsql_insert = function (status_vector : PISC_STATUS;
1205 isc_arg2 : PChar;
1206 isc_arg3 : UShort;
1207 isc_arg4 : PXSQLDA): ISC_STATUS;
1208 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1209
1210 Tisc_embed_dsql_prepare = function (status_vector : PISC_STATUS;
1211 db_handle : PISC_DB_HANDLE;
1212 tran_handle : PISC_TR_HANDLE;
1213 isc_arg4 : PChar;
1214 isc_arg5 : UShort;
1215 isc_arg6 : PChar;
1216 isc_arg7 : UShort;
1217 isc_arg8 : PXSQLDA): ISC_STATUS;
1218 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1219
1220 Tisc_embed_dsql_release = function (status_vector : PISC_STATUS;
1221 isc_arg2 : PChar): ISC_STATUS;
1222 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1223
1224 (********************************)
1225 (** Other Blob functions **)
1226 (********************************)
1227
1228 TBLOB_open = function (blob_handle : TISC_BLOB_HANDLE;
1229 isc_arg2 : PChar;
1230 isc_arg3 : int): PBSTREAM;
1231 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1232
1233 TBLOB_put = function (isc_arg1 : char;
1234 isc_arg2 : PBSTREAM): Int;
1235 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1236
1237 TBLOB_close = function (isc_arg1 : PBSTREAM): Int;
1238 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1239
1240 TBLOB_get = function (isc_arg1 : PBSTREAM): Int;
1241 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1242
1243 TBLOB_display = function (isc_arg1 : PISC_QUAD;
1244 db_handle : TISC_DB_HANDLE;
1245 tran_handle : TISC_TR_HANDLE;
1246 isc_arg4 : PChar): Int;
1247 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1248
1249 TBLOB_dump = function (isc_arg1 : PISC_QUAD;
1250 db_handle : TISC_DB_HANDLE;
1251 tran_handle : TISC_TR_HANDLE;
1252 isc_arg4 : PChar): Int;
1253 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1254
1255 TBLOB_edit = function (isc_arg1 : PISC_QUAD;
1256 db_handle : TISC_DB_HANDLE;
1257 tran_handle : TISC_TR_HANDLE;
1258 isc_arg4 : PChar): Int;
1259 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1260
1261 TBLOB_load = function (isc_arg1 : PISC_QUAD;
1262 db_handle : TISC_DB_HANDLE;
1263 tran_handle : TISC_TR_HANDLE;
1264 isc_arg4 : PChar): Int;
1265 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1266
1267 TBLOB_text_dump = function (isc_arg1 : PISC_QUAD;
1268 db_handle : TISC_DB_HANDLE;
1269 tran_handle : TISC_TR_HANDLE;
1270 isc_arg4 : PChar): Int;
1271 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1272
1273 TBLOB_text_load = function (isc_arg1 : PISC_QUAD;
1274 db_handle : TISC_DB_HANDLE;
1275 tran_handle : TISC_TR_HANDLE;
1276 isc_arg4 : PChar): Int;
1277 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1278
1279 TBopen = function (isc_arg1 : PISC_QUAD;
1280 db_handle : TISC_DB_HANDLE;
1281 tran_handle : TISC_TR_HANDLE;
1282 isc_arg4 : PChar): Int;
1283 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1284
1285 TBopen2 = function (isc_arg1 : PISC_QUAD;
1286 db_handle : TISC_DB_HANDLE;
1287 tran_handle : TISC_TR_HANDLE;
1288 isc_arg4 : PChar;
1289 isc_arg5 : UShort): PBSTREAM;
1290 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1291
1292 (********************************)
1293 (** Other Misc functions **)
1294 (********************************)
1295
1296 Tisc_ftof = function (isc_arg1 : PChar;
1297 isc_arg2 : UShort;
1298 isc_arg3 : PChar;
1299 isc_arg4 : UShort): ISC_LONG;
1300 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1301
1302 Tisc_print_blr = function (isc_arg1 : PChar;
1303 isc_arg2 : TISC_CALLBACK;
1304 isc_arg3 : PVoid;
1305 isc_arg4 : Short): ISC_STATUS;
1306 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1307
1308 Tisc_set_debug = procedure (isc_arg1 : Int);
1309 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1310
1311 Tisc_qtoq = procedure (isc_arg1 : PISC_QUAD;
1312 isc_arg2 : PISC_QUAD);
1313 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1314
1315 Tisc_vtof = procedure (isc_arg1 : PChar;
1316 isc_arg2 : PChar;
1317 isc_arg3 : UShort);
1318 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1319
1320 Tisc_vtov = procedure (isc_arg1 : PChar;
1321 isc_arg2 : PChar;
1322 isc_arg3 : Short);
1323 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1324
1325 Tisc_version = function (db_handle : PISC_DB_HANDLE;
1326 isc_arg2 : TISC_CALLBACK;
1327 isc_arg3 : PVoid): Int;
1328 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1329
1330 Tisc_reset_fpe = function (isc_arg1 : UShort): ISC_LONG;
1331 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1332
1333 (*******************************************)
1334 (** Service manager functions **)
1335 (*******************************************)
1336
1337 Tisc_service_attach = function (status_vector : PISC_STATUS;
1338 isc_arg2 : UShort;
1339 isc_arg3 : PChar;
1340 service_handle : PISC_SVC_HANDLE;
1341 isc_arg5 : UShort;
1342 isc_arg6 : PChar): ISC_STATUS;
1343 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1344
1345 Tisc_service_detach = function (status_vector : PISC_STATUS;
1346 service_handle : PISC_SVC_HANDLE): ISC_STATUS;
1347 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1348
1349 Tisc_service_query = function (status_vector : PISC_STATUS;
1350 service_handle : PISC_SVC_HANDLE;
1351 recv_handle : PISC_SVC_HANDLE;
1352 isc_arg4 : UShort;
1353 isc_arg5 : PChar;
1354 isc_arg6 : UShort;
1355 isc_arg7 : PChar;
1356 isc_arg8 : UShort;
1357 isc_arg9 : PChar): ISC_STATUS;
1358 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1359
1360 Tisc_service_start = function (status_vector : PISC_STATUS;
1361 service_handle : PISC_SVC_HANDLE;
1362 recv_handle : PISC_SVC_HANDLE;
1363 isc_arg4 : UShort;
1364 isc_arg5 : PChar): ISC_STATUS;
1365 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1366
1367 (*********************************)
1368 (** Forms functions **)
1369 (*********************************)
1370
1371 Tisc_compile_map = function (status_vector : PISC_STATUS;
1372 form_handle : PISC_FORM_HANDLE;
1373 request_handle : PISC_REQ_HANDLE;
1374 isc_arg4 : PShort;
1375 isc_arg5 : PChar): ISC_STATUS;
1376 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1377
1378 Tisc_compile_menu = function (status_vector : PISC_STATUS;
1379 form_handle : PISC_FORM_HANDLE;
1380 request_handle : PISC_REQ_HANDLE;
1381 isc_arg4 : PShort;
1382 isc_arg5 : PChar): ISC_STATUS;
1383 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1384
1385 Tisc_compile_sub_map = function (status_vector : PISC_STATUS;
1386 win_handle : PISC_WIN_HANDLE;
1387 request_handle : PISC_REQ_HANDLE;
1388 isc_arg4 : PShort;
1389 isc_arg5 : PChar): ISC_STATUS;
1390 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1391
1392 Tisc_create_window = function (status_vector : PISC_STATUS;
1393 win_handle : PISC_WIN_HANDLE;
1394 isc_arg3 : PShort;
1395 isc_arg4 : PChar;
1396 isc_arg5 : PShort;
1397 isc_arg6 : PShort): ISC_STATUS;
1398 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1399
1400 Tisc_delete_window = function (status_vector : PISC_STATUS;
1401 win_handle : PISC_WIN_HANDLE): ISC_STATUS;
1402 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1403
1404 Tisc_drive_form = function (status_vector : PISC_STATUS;
1405 db_handle : PISC_DB_HANDLE;
1406 tran_handle : PISC_TR_HANDLE;
1407 win_handle : PISC_WIN_HANDLE;
1408 request_handle : PISC_REQ_HANDLE;
1409 isc_arg6 : PUChar;
1410 isc_arg7 : PUChar): ISC_STATUS;
1411 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1412
1413 Tisc_drive_menu = function (status_vector : PISC_STATUS;
1414 win_handle : PISC_WIN_HANDLE;
1415 request_handle : PISC_REQ_HANDLE;
1416 isc_arg4 : PShort;
1417 isc_arg5 : PChar;
1418 isc_arg6 : PShort;
1419 isc_arg7 : PChar;
1420 isc_arg8 : PShort;
1421 isc_arg9 : PShort;
1422 isc_arg10 : PChar;
1423 isc_arg11 : PISC_LONG): ISC_STATUS;
1424 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1425
1426 Tisc_form_delete = function (status_vector : PISC_STATUS;
1427 form_handle : PISC_FORM_HANDLE): ISC_STATUS;
1428 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1429
1430 Tisc_form_fetch = function (status_vector : PISC_STATUS;
1431 db_handle : PISC_DB_HANDLE;
1432 tran_handle : PISC_TR_HANDLE;
1433 request_handle : PISC_REQ_HANDLE;
1434 isc_arg5 : PUChar): ISC_STATUS;
1435 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1436
1437 Tisc_form_insert = function (status_vector : PISC_STATUS;
1438 db_handle : PISC_DB_HANDLE;
1439 tran_handle : PISC_TR_HANDLE;
1440 request_handle : PISC_REQ_HANDLE;
1441 isc_arg5 : PUChar): ISC_STATUS;
1442 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1443
1444 Tisc_get_entree = function (status_vector : PISC_STATUS;
1445 request_handle : PISC_REQ_HANDLE;
1446 isc_arg3 : PShort;
1447 isc_arg4 : PChar;
1448 isc_arg5 : PISC_LONG;
1449 isc_arg6 : PShort): ISC_STATUS;
1450 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1451
1452 Tisc_initialize_menu = function (status_vector : PISC_STATUS;
1453 request_handle : PISC_REQ_HANDLE): ISC_STATUS;
1454 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1455
1456 Tisc_menu = function (status_vector : PISC_STATUS;
1457 win_handle : PISC_WIN_HANDLE;
1458 request_handle : PISC_REQ_HANDLE;
1459 isc_arg4 : PShort;
1460 isc_arg5 : PChar): ISC_STATUS;
1461 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1462
1463 Tisc_load_form = function (status_vector : PISC_STATUS;
1464 db_handle : PISC_DB_HANDLE;
1465 tran_handle : PISC_TR_HANDLE;
1466 form_handle : PISC_FORM_HANDLE;
1467 isc_arg5 : PShort;
1468 isc_arg6 : PChar): ISC_STATUS;
1469 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1470
1471 Tisc_pop_window = function (status_vector : PISC_STATUS;
1472 win_handle : PISC_WIN_HANDLE): ISC_STATUS;
1473 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1474
1475 Tisc_put_entree = function (status_vector : PISC_STATUS;
1476 request_handle : PISC_REQ_HANDLE;
1477 isc_arg3 : PShort;
1478 isc_arg4 : PChar;
1479 isc_arg5 : PISC_LONG): ISC_STATUS;
1480 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1481
1482 Tisc_reset_form = function (status_vector : PISC_STATUS;
1483 request_handle : PISC_REQ_HANDLE): ISC_STATUS;
1484 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1485
1486 Tisc_suspend_window = function (status_vector : PISC_STATUS;
1487 win_handle : PISC_WIN_HANDLE): ISC_STATUS;
1488 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
1489
1490 (** Constants!!! **)
1491 (*****************************************************)
1492 (** Actions to pass to the blob filter (ctl_source) **)
1493 (*****************************************************)
1494
1495 const
1496 isc_blob_filter_open = 0;
1497 isc_blob_filter_get_segment = 1;
1498 isc_blob_filter_close = 2;
1499 isc_blob_filter_create = 3;
1500 isc_blob_filter_put_segment = 4;
1501 isc_blob_filter_alloc = 5;
1502 isc_blob_filter_free = 6;
1503 isc_blob_filter_seek = 7;
1504
1505 (*********************)
1506 (** Blr definitions **)
1507 (*********************)
1508
1509 // In pascal, how does one deal with the below "#define"?
1510 // blr_word(n) ((n) % 256), ((n) / 256)
1511 blr_text = 14;
1512 blr_text2 = 15;
1513 blr_short = 7;
1514 blr_long = 8;
1515 blr_quad = 9;
1516 blr_float = 10;
1517 blr_double = 27;
1518 blr_d_float = 11;
1519 blr_timestamp = 35;
1520 blr_varying = 37;
1521 blr_varying2 = 38;
1522 blr_blob = 261;
1523 blr_cstring = 40;
1524 blr_cstring2 = 41;
1525 blr_blob_id = 45;
1526 blr_sql_date = 12;
1527 blr_sql_time = 13;
1528 blr_int64 = 16;
1529 blr_date = blr_timestamp;
1530
1531
1532 blr_inner = 0;
1533 blr_left = 1;
1534 blr_right = 2;
1535 blr_full = 3;
1536
1537 blr_gds_code = 0;
1538 blr_sql_code = 1;
1539 blr_exception = 2;
1540 blr_trigger_code = 3;
1541 blr_default_code = 4;
1542
1543 blr_version4 = 4;
1544 blr_version5 = 5;
1545 blr_eoc = 76;
1546 blr_end = -1;
1547
1548 blr_assignment = 1;
1549 blr_begin = 2;
1550 blr_dcl_variable = 3;
1551 blr_message = 4;
1552 blr_erase = 5;
1553 blr_fetch = 6;
1554 blr_for = 7;
1555 blr_if = 8;
1556 blr_loop = 9;
1557 blr_modify = 10;
1558 blr_handler = 11;
1559 blr_receive = 12;
1560 blr_select = 13;
1561 blr_send = 14;
1562 blr_store = 15;
1563 blr_label = 17;
1564 blr_leave = 18;
1565 blr_store2 = 19;
1566 blr_post = 20;
1567
1568 blr_literal = 21;
1569 blr_dbkey = 22;
1570 blr_field = 23;
1571 blr_fid = 24;
1572 blr_parameter = 25;
1573 blr_variable = 26;
1574 blr_average = 27;
1575 blr_count = 28;
1576 blr_maximum = 29;
1577 blr_minimum = 30;
1578 blr_total = 31;
1579 blr_add = 34;
1580 blr_subtract = 35;
1581 blr_multiply = 36;
1582 blr_divide = 37;
1583 blr_negate = 38;
1584 blr_concatenate = 39;
1585 blr_substring = 40;
1586 blr_parameter2 = 41;
1587 blr_from = 42;
1588 blr_via = 43;
1589 blr_user_name = 44;
1590 blr_null = 45;
1591
1592 blr_eql = 47;
1593 blr_neq = 48;
1594 blr_gtr = 49;
1595 blr_geq = 50;
1596 blr_lss = 51;
1597 blr_leq = 52;
1598 blr_containing = 53;
1599 blr_matching = 54;
1600 blr_starting = 55;
1601 blr_between = 56;
1602 blr_or = 57;
1603 blr_and = 58;
1604 blr_not = 59;
1605 blr_any = 60;
1606 blr_missing = 61;
1607 blr_unique = 62;
1608 blr_like = 63;
1609
1610 blr_stream = 65;
1611 blr_set_index = 66;
1612 blr_rse = 67;
1613 blr_first = 68;
1614 blr_project = 69;
1615 blr_sort = 70;
1616 blr_boolean = 71;
1617 blr_ascending = 72;
1618 blr_descending = 73;
1619 blr_relation = 74;
1620 blr_rid = 75;
1621 blr_union = 76;
1622 blr_map = 77;
1623 blr_group_by = 78;
1624 blr_aggregate = 79;
1625 blr_join_type = 80;
1626
1627 blr_agg_count = 83;
1628 blr_agg_max = 84;
1629 blr_agg_min = 85;
1630 blr_agg_total = 86;
1631 blr_agg_average = 87;
1632 blr_parameter3 = 88;
1633 blr_run_count = 118;
1634 blr_run_max = 89;
1635 blr_run_min = 90;
1636 blr_run_total = 91;
1637 blr_run_average = 92;
1638 blr_agg_count2 = 93;
1639 blr_agg_count_distinct = 94;
1640 blr_agg_total_distinct = 95;
1641 blr_agg_average_distinct = 96;
1642
1643 blr_function = 100;
1644 blr_gen_id = 101;
1645 blr_prot_mask = 102;
1646 blr_upcase = 103;
1647 blr_lock_state = 104;
1648 blr_value_if = 105;
1649 blr_matching2 = 106;
1650 blr_index = 107;
1651 blr_ansi_like = 108;
1652 blr_bookmark = 109;
1653 blr_crack = 110;
1654 blr_force_crack = 111;
1655 blr_seek = 112;
1656 blr_find = 113;
1657
1658 blr_continue = 0;
1659 blr_forward = 1;
1660 blr_backward = 2;
1661 blr_bof_forward = 3;
1662 blr_eof_backward = 4;
1663
1664 blr_lock_relation = 114;
1665 blr_lock_record = 115;
1666 blr_set_bookmark = 116;
1667 blr_get_bookmark = 117;
1668 blr_rs_stream = 119;
1669 blr_exec_proc = 120;
1670 blr_begin_range = 121;
1671 blr_end_range = 122;
1672 blr_delete_range = 123;
1673 blr_procedure = 124;
1674 blr_pid = 125;
1675 blr_exec_pid = 126;
1676 blr_singular = 127;
1677 blr_abort = 128;
1678 blr_block = 129;
1679 blr_error_handler = 130;
1680 blr_cast = 131;
1681 blr_release_lock = 132;
1682 blr_release_locks = 133;
1683 blr_start_savepoint = 134;
1684 blr_end_savepoint = 135;
1685 blr_find_dbkey = 136;
1686 blr_range_relation = 137;
1687 blr_delete_ranges = 138;
1688
1689 blr_plan = 139;
1690 blr_merge = 140;
1691 blr_join = 141;
1692 blr_sequential = 142;
1693 blr_navigational = 143;
1694 blr_indices = 144;
1695 blr_retrieve = 145;
1696
1697 blr_relation2 = 146;
1698 blr_rid2 = 147;
1699 blr_reset_stream = 148;
1700 blr_release_bookmark = 149;
1701 blr_set_generator = 150;
1702 blr_ansi_any = 151;
1703 blr_exists = 152;
1704 blr_cardinality = 153;
1705
1706 blr_record_version = 154; (** get tid of record **)
1707 blr_stall = 155; (** fake server stall **)
1708 blr_seek_no_warn = 156;
1709 blr_find_dbkey_version = 157;
1710 blr_ansi_all = 158;
1711
1712 blr_extract = 159;
1713
1714 (* sub parameters for blr_extract *)
1715
1716 blr_extract_year = 0;
1717 blr_extract_month = 1;
1718 blr_extract_day = 2;
1719 blr_extract_hour = 3;
1720 blr_extract_minute = 4;
1721 blr_extract_second = 5;
1722 blr_extract_weekday = 6;
1723 blr_extract_yearday = 7;
1724
1725 blr_current_date = 160;
1726 blr_current_timestamp = 161;
1727 blr_current_time = 162;
1728
1729 (* These verbs were added in 6.0,
1730 primarily to support 64-bit integers *)
1731
1732 blr_add2 = 163;
1733 blr_subtract2 = 164;
1734 blr_multiply2 = 165;
1735 blr_divide2 = 166;
1736 blr_agg_total2 = 167;
1737 blr_agg_total_distinct2 = 168;
1738 blr_agg_average2 = 169;
1739 blr_agg_average_distinct2 = 170;
1740 blr_average2 = 171;
1741 blr_gen_id2 = 172;
1742 blr_set_generator2 = 173;
1743
1744 (************************************)
1745 (** Database parameter block stuff **)
1746 (************************************)
1747
1748 isc_dpb_version1 = 1;
1749 isc_dpb_cdd_pathname = 1;
1750 isc_dpb_allocation = 2;
1751 isc_dpb_journal = 3;
1752 isc_dpb_page_size = 4;
1753 isc_dpb_num_buffers = 5;
1754 isc_dpb_buffer_length = 6;
1755 isc_dpb_debug = 7;
1756 isc_dpb_garbage_collect = 8;
1757 isc_dpb_verify = 9;
1758 isc_dpb_sweep = 10;
1759 isc_dpb_enable_journal = 11;
1760 isc_dpb_disable_journal = 12;
1761 isc_dpb_dbkey_scope = 13;
1762 isc_dpb_number_of_users = 14;
1763 isc_dpb_trace = 15;
1764 isc_dpb_no_garbage_collect = 16;
1765 isc_dpb_damaged = 17;
1766 isc_dpb_license = 18;
1767 isc_dpb_sys_user_name = 19;
1768 isc_dpb_encrypt_key = 20;
1769 isc_dpb_activate_shadow = 21;
1770 isc_dpb_sweep_interval = 22;
1771 isc_dpb_delete_shadow = 23;
1772 isc_dpb_force_write = 24;
1773 isc_dpb_begin_log = 25;
1774 isc_dpb_quit_log = 26;
1775 isc_dpb_no_reserve = 27;
1776 isc_dpb_user_name = 28;
1777 isc_dpb_password = 29;
1778 isc_dpb_password_enc = 30;
1779 isc_dpb_sys_user_name_enc = 31;
1780 isc_dpb_interp = 32;
1781 isc_dpb_online_dump = 33;
1782 isc_dpb_old_file_size = 34;
1783 isc_dpb_old_num_files = 35;
1784 isc_dpb_old_file = 36;
1785 isc_dpb_old_start_page = 37;
1786 isc_dpb_old_start_seqno = 38;
1787 isc_dpb_old_start_file = 39;
1788 isc_dpb_drop_walfile = 40;
1789 isc_dpb_old_dump_id = 41;
1790 isc_dpb_wal_backup_dir = 42;
1791 isc_dpb_wal_chkptlen = 43;
1792 isc_dpb_wal_numbufs = 44;
1793 isc_dpb_wal_bufsize = 45;
1794 isc_dpb_wal_grp_cmt_wait = 46;
1795 isc_dpb_lc_messages = 47;
1796 isc_dpb_lc_ctype = 48;
1797 isc_dpb_cache_manager = 49;
1798 isc_dpb_shutdown = 50;
1799 isc_dpb_online = 51;
1800 isc_dpb_shutdown_delay = 52;
1801 isc_dpb_reserved = 53;
1802 isc_dpb_overwrite = 54;
1803 isc_dpb_sec_attach = 55;
1804 isc_dpb_disable_wal = 56;
1805 isc_dpb_connect_timeout = 57;
1806 isc_dpb_dummy_packet_interval = 58;
1807 isc_dpb_gbak_attach = 59;
1808 isc_dpb_sql_role_name = 60;
1809 isc_dpb_set_page_buffers = 61;
1810 isc_dpb_working_directory = 62;
1811 isc_dpb_SQL_dialect = 63;
1812 isc_dpb_set_db_readonly = 64;
1813 isc_dpb_set_db_SQL_dialect = 65;
1814 isc_dpb_gfix_attach = 66;
1815 isc_dpb_gstat_attach = 67;
1816 isc_dpb_last_dpb_constant = isc_dpb_gstat_attach;
1817
1818
1819 (***********************************)
1820 (** isc_dpb_verify specific flags **)
1821 (***********************************)
1822
1823 isc_dpb_pages = 1;
1824 isc_dpb_records = 2;
1825 isc_dpb_indices = 4;
1826 isc_dpb_transactions = 8;
1827 isc_dpb_no_update = 16;
1828 isc_dpb_repair = 32;
1829 isc_dpb_ignore = 64;
1830
1831 (*************************************)
1832 (** isc_dpb_shutdown specific flags **)
1833 (*************************************)
1834
1835 isc_dpb_shut_cache = 1;
1836 isc_dpb_shut_attachment = 2;
1837 isc_dpb_shut_transaction = 4;
1838 isc_dpb_shut_force = 8;
1839
1840 (****************************************)
1841 (** Bit assignments in RDB$SYSTEM_FLAG **)
1842 (****************************************)
1843
1844 RDB_system = 1;
1845 RDB_id_assigned = 2;
1846
1847
1848 (***************************************)
1849 (** Transaction parameter block stuff **)
1850 (***************************************)
1851
1852 isc_tpb_version1 = 1;
1853 isc_tpb_version3 = 3;
1854 isc_tpb_consistency = 1;
1855 isc_tpb_concurrency = 2;
1856 isc_tpb_shared = 3;
1857 isc_tpb_protected = 4;
1858 isc_tpb_exclusive = 5;
1859 isc_tpb_wait = 6;
1860 isc_tpb_nowait = 7;
1861 isc_tpb_read = 8;
1862 isc_tpb_write = 9;
1863 isc_tpb_lock_read = 10;
1864 isc_tpb_lock_write = 11;
1865 isc_tpb_verb_time = 12;
1866 isc_tpb_commit_time = 13;
1867 isc_tpb_ignore_limbo = 14;
1868 isc_tpb_read_committed = 15;
1869 isc_tpb_autocommit = 16;
1870 isc_tpb_rec_version = 17;
1871 isc_tpb_no_rec_version = 18;
1872 isc_tpb_restart_requests = 19;
1873 isc_tpb_no_auto_undo = 20;
1874 isc_tpb_last_tpb_constant = isc_tpb_no_auto_undo;
1875
1876
1877 (**************************)
1878 (** Blob Parameter Block **)
1879 (**************************)
1880
1881 isc_bpb_version1 = 1;
1882 isc_bpb_source_type = 1;
1883 isc_bpb_target_type = 2;
1884 isc_bpb_type = 3;
1885 isc_bpb_source_interp = 4;
1886 isc_bpb_target_interp = 5;
1887 isc_bpb_filter_parameter = 6;
1888
1889 isc_bpb_type_segmented = 0;
1890 isc_bpb_type_stream = 1;
1891
1892
1893 (***********************************)
1894 (** Service parameter block stuff **)
1895 (***********************************)
1896
1897 isc_spb_user_name = 1;
1898 isc_spb_sys_user_name = 2;
1899 isc_spb_sys_user_name_enc = 3;
1900 isc_spb_password = 4;
1901 isc_spb_password_enc = 5;
1902 isc_spb_command_line = 6;
1903 isc_spb_dbname = 7;
1904 isc_spb_verbose = 8;
1905 isc_spb_options = 9;
1906 isc_spb_connect_timeout = 10;
1907 isc_spb_dummy_packet_interval = 11;
1908 isc_spb_sql_role_name = 12;
1909 isc_spb_last_spb_constant = isc_spb_sql_role_name;
1910
1911 isc_spb_version1 = 1;
1912 isc_spb_current_version = 2;
1913 isc_spb_version = isc_spb_current_version;
1914 isc_spb_user_name_mapped_to_server = isc_dpb_user_name;
1915 isc_spb_sys_user_name_mapped_to_server = isc_dpb_sys_user_name;
1916 isc_spb_sys_user_name_enc_mapped_to_server = isc_dpb_sys_user_name_enc;
1917 isc_spb_password_mapped_to_server = isc_dpb_password;
1918 isc_spb_password_enc_mapped_to_server = isc_dpb_password_enc;
1919 isc_spb_command_line_mapped_to_server = 105;
1920 isc_spb_dbname_mapped_to_server = 106;
1921 isc_spb_verbose_mapped_to_server = 107;
1922 isc_spb_options_mapped_to_server = 108;
1923 isc_spb_connect_timeout_mapped_to_server = isc_dpb_connect_timeout;
1924 isc_spb_dummy_packet_interval_mapped_to_server = isc_dpb_dummy_packet_interval;
1925 isc_spb_sql_role_name_mapped_to_server = isc_dpb_sql_role_name;
1926
1927 (***********************************)
1928 (** Information call declarations **)
1929 (***********************************)
1930
1931 (******************************)
1932 (** Common, structural codes **)
1933 (******************************)
1934
1935 isc_info_end = 1;
1936 isc_info_truncated = 2;
1937 isc_info_error = 3;
1938 isc_info_data_not_ready = 4;
1939 isc_info_flag_end = 127;
1940
1941 (********************************)
1942 (** Database information items **)
1943 (********************************)
1944
1945 isc_info_db_id = 4;
1946 isc_info_reads = 5;
1947 isc_info_writes = 6;
1948 isc_info_fetches = 7;
1949 isc_info_marks = 8;
1950 isc_info_implementation = 11;
1951 isc_info_version = 12;
1952 isc_info_base_level = 13;
1953 isc_info_page_size = 14;
1954 isc_info_num_buffers = 15;
1955 isc_info_limbo = 16;
1956 isc_info_current_memory = 17;
1957 isc_info_max_memory = 18;
1958 isc_info_window_turns = 19;
1959 isc_info_license = 20;
1960 isc_info_allocation = 21;
1961 isc_info_attachment_id = 22;
1962 isc_info_read_seq_count = 23;
1963 isc_info_read_idx_count = 24;
1964 isc_info_insert_count = 25;
1965 isc_info_update_count = 26;
1966 isc_info_delete_count = 27;
1967 isc_info_backout_count = 28;
1968 isc_info_purge_count = 29;
1969 isc_info_expunge_count = 30;
1970 isc_info_sweep_interval = 31;
1971 isc_info_ods_version = 32;
1972 isc_info_ods_minor_version = 33;
1973 isc_info_no_reserve = 34;
1974 isc_info_logfile = 35;
1975 isc_info_cur_logfile_name = 36;
1976 isc_info_cur_log_part_offset = 37;
1977 isc_info_num_wal_buffers = 38;
1978 isc_info_wal_buffer_size = 39;
1979 isc_info_wal_ckpt_length = 40;
1980 isc_info_wal_cur_ckpt_interval = 41;
1981 isc_info_wal_prv_ckpt_fname = 42;
1982 isc_info_wal_prv_ckpt_poffset = 43;
1983 isc_info_wal_recv_ckpt_fname = 44;
1984 isc_info_wal_recv_ckpt_poffset = 45;
1985 isc_info_wal_grpc_wait_usecs = 47;
1986 isc_info_wal_num_io = 48;
1987 isc_info_wal_avg_io_size = 49;
1988 isc_info_wal_num_commits = 50;
1989 isc_info_wal_avg_grpc_size = 51;
1990 isc_info_forced_writes = 52;
1991 isc_info_user_names = 53;
1992 isc_info_page_errors = 54;
1993 isc_info_record_errors = 55;
1994 isc_info_bpage_errors = 56;
1995 isc_info_dpage_errors = 57;
1996 isc_info_ipage_errors = 58;
1997 isc_info_ppage_errors = 59;
1998 isc_info_tpage_errors = 60;
1999 isc_info_set_page_buffers = 61;
2000 isc_info_db_SQL_dialect = 62;
2001 isc_info_db_read_only = 63;
2002 isc_info_db_size_in_pages = 64;
2003
2004 (****************************************)
2005 (** Database information return values **)
2006 (****************************************)
2007
2008 isc_info_db_impl_rdb_vms = 1;
2009 isc_info_db_impl_rdb_eln = 2;
2010 isc_info_db_impl_rdb_eln_dev = 3;
2011 isc_info_db_impl_rdb_vms_y = 4;
2012 isc_info_db_impl_rdb_eln_y = 5;
2013 isc_info_db_impl_jri = 6;
2014 isc_info_db_impl_jsv = 7;
2015 isc_info_db_impl_isc_a = 25;
2016 isc_info_db_impl_isc_u = 26;
2017 isc_info_db_impl_isc_v = 27;
2018 isc_info_db_impl_isc_s = 28;
2019 isc_info_db_impl_isc_apl_68K = 25;
2020 isc_info_db_impl_isc_vax_ultr = 26;
2021 isc_info_db_impl_isc_vms = 27;
2022 isc_info_db_impl_isc_sun_68k = 28;
2023 isc_info_db_impl_isc_os2 = 29;
2024 isc_info_db_impl_isc_sun4 = 30;
2025 isc_info_db_impl_isc_hp_ux = 31;
2026 isc_info_db_impl_isc_sun_386i = 32;
2027 isc_info_db_impl_isc_vms_orcl = 33;
2028 isc_info_db_impl_isc_mac_aux = 34;
2029 isc_info_db_impl_isc_rt_aix = 35;
2030 isc_info_db_impl_isc_mips_ult = 36;
2031 isc_info_db_impl_isc_xenix = 37;
2032 isc_info_db_impl_isc_dg = 38;
2033 isc_info_db_impl_isc_hp_mpexl = 39;
2034 isc_info_db_impl_isc_hp_ux68K = 40;
2035 isc_info_db_impl_isc_sgi = 41;
2036 isc_info_db_impl_isc_sco_unix = 42;
2037 isc_info_db_impl_isc_cray = 43;
2038 isc_info_db_impl_isc_imp = 44;
2039 isc_info_db_impl_isc_delta = 45;
2040 isc_info_db_impl_isc_next = 46;
2041 isc_info_db_impl_isc_dos = 47;
2042 isc_info_db_impl_isc_winnt = 48;
2043 isc_info_db_impl_isc_epson = 49;
2044
2045 isc_info_db_class_access = 1;
2046 isc_info_db_class_y_valve = 2;
2047 isc_info_db_class_rem_int = 3;
2048 isc_info_db_class_rem_srvr = 4;
2049 isc_info_db_class_pipe_int = 7;
2050 isc_info_db_class_pipe_srvr = 8;
2051 isc_info_db_class_sam_int = 9;
2052 isc_info_db_class_sam_srvr = 10;
2053 isc_info_db_class_gateway = 11;
2054 isc_info_db_class_cache = 12;
2055
2056 (*******************************)
2057 (** Request information items **)
2058 (*******************************)
2059
2060 isc_info_number_messages = #4;
2061 isc_info_max_message = #5;
2062 isc_info_max_send = #6;
2063 isc_info_max_receive = #7;
2064 isc_info_state = #8;
2065 isc_info_message_number = #9;
2066 isc_info_message_size = #10;
2067 isc_info_request_cost = #11;
2068 isc_info_access_path = #12;
2069 isc_info_req_select_count = #13;
2070 isc_info_req_insert_count = #14;
2071 isc_info_req_update_count = #15;
2072 isc_info_req_delete_count = #16;
2073
2074
2075 (***********************)
2076 (** Access path items **)
2077 (***********************)
2078
2079 isc_info_rsb_end = 0;
2080 isc_info_rsb_begin = 1;
2081 isc_info_rsb_type = 2;
2082 isc_info_rsb_relation = 3;
2083 isc_info_rsb_plan = 4;
2084
2085 (***************)
2086 (** Rsb types **)
2087 (***************)
2088
2089 isc_info_rsb_unknown = 1;
2090 isc_info_rsb_indexed = 2;
2091 isc_info_rsb_navigate = 3;
2092 isc_info_rsb_sequential = 4;
2093 isc_info_rsb_cross = 5;
2094 isc_info_rsb_sort = 6;
2095 isc_info_rsb_first = 7;
2096 isc_info_rsb_boolean = 8;
2097 isc_info_rsb_union = 9;
2098 isc_info_rsb_aggregate = 10;
2099 isc_info_rsb_merge = 11;
2100 isc_info_rsb_ext_sequential = 12;
2101 isc_info_rsb_ext_indexed = 13;
2102 isc_info_rsb_ext_dbkey = 14;
2103 isc_info_rsb_left_cross = 15;
2104 isc_info_rsb_select = 16;
2105 isc_info_rsb_sql_join = 17;
2106 isc_info_rsb_simulate = 18;
2107 isc_info_rsb_sim_cross = 19;
2108 isc_info_rsb_once = 20;
2109 isc_info_rsb_procedure = 21;
2110
2111 (************************)
2112 (** Bitmap expressions **)
2113 (************************)
2114
2115 isc_info_rsb_and = 1;
2116 isc_info_rsb_or = 2;
2117 isc_info_rsb_dbkey = 3;
2118 isc_info_rsb_index = 4;
2119
2120 isc_info_req_active = 2;
2121 isc_info_req_inactive = 3;
2122 isc_info_req_send = 4;
2123 isc_info_req_receive = 5;
2124 isc_info_req_select = 6;
2125 isc_info_req_sql_stall = 7;
2126
2127 (****************************)
2128 (** Blob information items **)
2129 (****************************)
2130
2131 isc_info_blob_num_segments = 4;
2132 isc_info_blob_max_segment = 5;
2133 isc_info_blob_total_length = 6;
2134 isc_info_blob_type = 7;
2135
2136 (***********************************)
2137 (** Transaction information items **)
2138 (***********************************)
2139
2140 isc_info_tra_id = 4;
2141
2142 (*******************************)
2143 (** Service information items **)
2144 (*******************************)
2145
2146 {$IFDEF IB5_ONLY }
2147 (* This defines are not there in version 6.0 *)
2148 { isc_info_svc_version = 4;
2149 isc_info_svc_message = 5;
2150 isc_info_svc_total_length = 6;
2151 isc_info_svc_response = 7;
2152 isc_info_svc_response_more = 8;
2153 isc_info_svc_line = 9;
2154 isc_info_svc_to_eof = 10;
2155 isc_info_svc_timeout = 11;
2156 isc_info_svc_server_version = 12;
2157 isc_info_svc_implementation = 13;
2158 isc_info_svc_capabilities = 14;
2159 isc_info_svc_user_dbpath = 15;
2160 isc_info_svc_svr_db_info = 16;
2161 isc_info_svc_svr_online = 17;
2162 isc_info_svc_svr_offline = 18;
2163 isc_info_svc_get_config = 19;
2164 isc_info_svc_set_config = 20;
2165 isc_info_svc_default_config = 21;
2166 isc_info_svc_get_env = 22;
2167 isc_info_svc_get_env_lock = 23;
2168 isc_info_svc_get_env_msg = 24; }
2169 {$ENDIF}
2170
2171 (*****************************************)
2172 (* Service action items **)
2173 (*****************************************)
2174
2175 isc_action_svc_backup = 1; (* Starts database backup process on the server *)
2176 isc_action_svc_restore = 2; (* Starts database restore process on the server *)
2177 isc_action_svc_repair = 3; (* Starts database repair process on the server *)
2178 isc_action_svc_add_user = 4; (* Adds a new user to the security database *)
2179 isc_action_svc_delete_user = 5; (* Deletes a user record from the security database *)
2180 isc_action_svc_modify_user = 6; (* Modifies a user record in the security database *)
2181 isc_action_svc_display_user = 7; (* Displays a user record from the security database *)
2182 isc_action_svc_properties = 8; (* Sets database properties *)
2183 isc_action_svc_add_license = 9; (* Adds a license to the license file *)
2184 isc_action_svc_remove_license = 10; (* Removes a license from the license file *)
2185 isc_action_svc_db_stats = 11; (* Retrieves database statistics *)
2186 isc_action_svc_get_ib_log = 12; (* Retrieves the InterBase log file from the server *)
2187
2188 (*****************************************)
2189 (** Service information items **)
2190 (*****************************************)
2191
2192 isc_info_svc_svr_db_info = 50; (* Retrieves the number of attachments and databases *)
2193 isc_info_svc_get_license = 51; (* Retrieves all license keys and IDs from the license file *)
2194 isc_info_svc_get_license_mask = 52; (* Retrieves a bitmask representing licensed options on the server *)
2195 isc_info_svc_get_config = 53; (* Retrieves the parameters and values for IB_CONFIG *)
2196 isc_info_svc_version = 54; (* Retrieves the version of the services manager *)
2197 isc_info_svc_server_version = 55;(* Retrieves the version of the InterBase server *)
2198 isc_info_svc_implementation = 56; (* Retrieves the implementation of the InterBase server *)
2199 isc_info_svc_capabilities = 57; (* Retrieves a bitmask representing the server's capabilities *)
2200 isc_info_svc_user_dbpath = 58; (* Retrieves the path to the security database in use by the server *)
2201 isc_info_svc_get_env = 59; (* Retrieves the setting of $INTERBASE *)
2202 isc_info_svc_get_env_lock = 60; (* Retrieves the setting of $INTERBASE_LCK *)
2203 isc_info_svc_get_env_msg = 61; (* Retrieves the setting of $INTERBASE_MSG *)
2204 isc_info_svc_line = 62; (* Retrieves 1 line of service output per call *)
2205 isc_info_svc_to_eof = 63; (* Retrieves as much of the server output as will fit in the supplied buffer *)
2206 isc_info_svc_timeout = 64; (* Sets / signifies a timeout value for reading service information *)
2207 isc_info_svc_get_licensed_users = 65; (* Retrieves the number of users licensed for accessing the server *)
2208 isc_info_svc_limbo_trans = 66; (* Retrieve the limbo transactions *)
2209 isc_info_svc_running = 67; (* Checks to see if a service is running on an attachment *)
2210 isc_info_svc_get_users = 68; (* Returns the user information from isc_action_svc_display_users *)
2211
2212 (*****************************************)
2213 (* Parameters for isc_action_{add|delete|modify)_user *)
2214 (*****************************************)
2215
2216 isc_spb_sec_userid = 5;
2217 isc_spb_sec_groupid = 6;
2218 isc_spb_sec_username = 7;
2219 isc_spb_sec_password = 8;
2220 isc_spb_sec_groupname = 9;
2221 isc_spb_sec_firstname = 10;
2222 isc_spb_sec_middlename = 11;
2223 isc_spb_sec_lastname = 12;
2224
2225 (*****************************************)
2226 (* Parameters for isc_action_svc_(add|remove)_license, *)
2227 (* isc_info_svc_get_license *)
2228 (*****************************************)
2229
2230 isc_spb_lic_key = 5;
2231 isc_spb_lic_id = 6;
2232 isc_spb_lic_desc = 7;
2233
2234
2235 (*****************************************)
2236 (* Parameters for isc_action_svc_backup *)
2237 (*****************************************)
2238
2239 isc_spb_bkp_file = 5;
2240 isc_spb_bkp_factor = 6;
2241 isc_spb_bkp_length = 7;
2242 isc_spb_bkp_ignore_checksums = $01;
2243 isc_spb_bkp_ignore_limbo = $02;
2244 isc_spb_bkp_metadata_only = $04;
2245 isc_spb_bkp_no_garbage_collect = $08;
2246 isc_spb_bkp_old_descriptions = $10;
2247 isc_spb_bkp_non_transportable = $20;
2248 isc_spb_bkp_convert = $40;
2249 isc_spb_bkp_expand = $80;
2250
2251 (*****************************************)
2252 (* Parameters for isc_action_svc_properties *)
2253 (*****************************************)
2254
2255 isc_spb_prp_page_buffers = 5;
2256 isc_spb_prp_sweep_interval = 6;
2257 isc_spb_prp_shutdown_db = 7;
2258 isc_spb_prp_deny_new_attachments = 9;
2259 isc_spb_prp_deny_new_transactions = 10;
2260 isc_spb_prp_reserve_space = 11;
2261 isc_spb_prp_write_mode = 12;
2262 isc_spb_prp_access_mode = 13;
2263 isc_spb_prp_set_sql_dialect = 14;
2264 isc_spb_prp_activate = $0100;
2265 isc_spb_prp_db_online = $0200;
2266
2267 (*****************************************)
2268 (* Parameters for isc_spb_prp_reserve_space *)
2269 (*****************************************)
2270
2271 isc_spb_prp_res_use_full = 35;
2272 isc_spb_prp_res = 36;
2273
2274 (*****************************************)
2275 (* Parameters for isc_spb_prp_write_mode *)
2276 (*****************************************)
2277
2278 isc_spb_prp_wm_async = 37;
2279 isc_spb_prp_wm_sync = 38;
2280
2281 (*****************************************)
2282 (* Parameters for isc_spb_prp_access_mode *)
2283 (*****************************************)
2284
2285 isc_spb_prp_am_readonly = 39;
2286 isc_spb_prp_am_readwrite = 40;
2287
2288 (*****************************************)
2289 (* Parameters for isc_action_svc_repair *)
2290 (*****************************************)
2291
2292 isc_spb_rpr_commit_trans = 15;
2293 isc_spb_rpr_rollback_trans = 34;
2294 isc_spb_rpr_recover_two_phase = 17;
2295 isc_spb_tra_id = 18;
2296 isc_spb_single_tra_id = 19;
2297 isc_spb_multi_tra_id = 20;
2298 isc_spb_tra_state = 21;
2299 isc_spb_tra_state_limbo = 22;
2300 isc_spb_tra_state_commit = 23;
2301 isc_spb_tra_state_rollback = 24;
2302 isc_spb_tra_state_unknown = 25;
2303 isc_spb_tra_host_site = 26;
2304 isc_spb_tra_remote_site = 27;
2305 isc_spb_tra_db_path = 28;
2306 isc_spb_tra_advise = 29;
2307 isc_spb_tra_advise_commit = 30;
2308 isc_spb_tra_advise_rollback = 31;
2309 isc_spb_tra_advise_unknown = 33;
2310 isc_spb_rpr_validate_db = $01;
2311 isc_spb_rpr_sweep_db = $02;
2312 isc_spb_rpr_mend_db = $04;
2313 isc_spb_rpr_list_limbo_trans = $08;
2314 isc_spb_rpr_check_db = $10;
2315 isc_spb_rpr_ignore_checksum = $20;
2316 isc_spb_rpr_kill_shadows = $40;
2317 isc_spb_rpr_full = $80;
2318
2319 (*****************************************)
2320 (* Parameters for isc_action_svc_restore *)
2321 (*****************************************)
2322
2323 isc_spb_res_buffers = 9;
2324 isc_spb_res_page_size = 10;
2325 isc_spb_res_length = 11;
2326 isc_spb_res_access_mode = 12;
2327 isc_spb_res_deactivate_idx = $0100;
2328 isc_spb_res_no_shadow = $0200;
2329 isc_spb_res_no_validity = $0400;
2330 isc_spb_res_one_at_a_time = $0800;
2331 isc_spb_res_replace = $1000;
2332 isc_spb_res_create = $2000;
2333 isc_spb_res_use_all_space = $4000;
2334
2335 (*****************************************)
2336 (* Parameters for isc_spb_res_access_mode *)
2337 (*****************************************)
2338
2339 isc_spb_res_am_readonly = isc_spb_prp_am_readonly;
2340 isc_spb_res_am_readwrite = isc_spb_prp_am_readwrite;
2341
2342 (*****************************************)
2343 (* Parameters for isc_info_svc_svr_db_info *)
2344 (*****************************************)
2345
2346 isc_spb_num_att = 5;
2347 isc_spb_num_db = 6;
2348
2349 (*****************************************)
2350 (* Parameters for isc_info_svc_db_stats *)
2351 (*****************************************)
2352
2353 isc_spb_sts_data_pages = $01;
2354 isc_spb_sts_db_log = $02;
2355 isc_spb_sts_hdr_pages = $04;
2356 isc_spb_sts_idx_pages = $08;
2357 isc_spb_sts_sys_relations = $10;
2358
2359
2360 (***************************)
2361 (** SQL information items **)
2362 (***************************)
2363
2364 isc_info_sql_select = #4;
2365 isc_info_sql_bind = #5;
2366 isc_info_sql_num_variables = #6;
2367 isc_info_sql_describe_vars = #7;
2368 isc_info_sql_describe_end = #8;
2369 isc_info_sql_sqlda_seq = #9;
2370 isc_info_sql_message_seq = #10;
2371 isc_info_sql_type = #11;
2372 isc_info_sql_sub_type = #12;
2373 isc_info_sql_scale = #13;
2374 isc_info_sql_length = #14;
2375 isc_info_sql_null_ind = #15;
2376 isc_info_sql_field = #16;
2377 isc_info_sql_relation = #17;
2378 isc_info_sql_owner = #18;
2379 isc_info_sql_alias = #19;
2380 isc_info_sql_sqlda_start = #20;
2381 isc_info_sql_stmt_type = #21;
2382 isc_info_sql_get_plan = #22;
2383 isc_info_sql_records = #23;
2384 isc_info_sql_batch_fetch = #24;
2385
2386 (***********************************)
2387 (** SQL information return values **)
2388 (***********************************)
2389
2390 isc_info_sql_stmt_select = #1;
2391 isc_info_sql_stmt_insert = #2;
2392 isc_info_sql_stmt_update = #3;
2393 isc_info_sql_stmt_delete = #4;
2394 isc_info_sql_stmt_ddl = #5;
2395 isc_info_sql_stmt_get_segment = #6;
2396 isc_info_sql_stmt_put_segment = #7;
2397 isc_info_sql_stmt_exec_procedure = #8;
2398 isc_info_sql_stmt_start_trans = #9;
2399 isc_info_sql_stmt_commit = #10;
2400 isc_info_sql_stmt_rollback = #11;
2401 isc_info_sql_stmt_select_for_upd = #12;
2402 isc_info_sql_stmt_set_generator = #13;
2403
2404
2405 (*************************************)
2406 (** Server configuration key values **)
2407 (*************************************)
2408
2409 ISCCFG_LOCKMEM_KEY = 0;
2410 ISCCFG_LOCKSEM_KEY = 1;
2411 ISCCFG_LOCKSIG_KEY = 2;
2412 ISCCFG_EVNTMEM_KEY = 3;
2413 ISCCFG_DBCACHE_KEY = 4;
2414 ISCCFG_PRIORITY_KEY = 5;
2415 ISCCFG_IPCMAP_KEY = 6;
2416 ISCCFG_MEMMIN_KEY = 7;
2417 ISCCFG_MEMMAX_KEY = 8;
2418 ISCCFG_LOCKORDER_KEY = 9;
2419 ISCCFG_ANYLOCKMEM_KEY = 10;
2420 ISCCFG_ANYLOCKSEM_KEY = 11;
2421 ISCCFG_ANYLOCKSIG_KEY = 12;
2422 ISCCFG_ANYEVNTMEM_KEY = 13;
2423 ISCCFG_LOCKHASH_KEY = 14;
2424 ISCCFG_DEADLOCK_KEY = 15;
2425 ISCCFG_LOCKSPIN_KEY = 16;
2426 ISCCFG_CONN_TIMEOUT_KEY = 17;
2427 ISCCFG_DUMMY_INTRVL_KEY = 18;
2428
2429
2430 (*****************)
2431 (** Error codes **)
2432 (*****************)
2433
2434 isc_facility = 20;
2435 isc_err_base = 335544320;
2436 isc_err_factor = 1;
2437 isc_arg_end = 0;
2438 isc_arg_gds = 1;
2439 isc_arg_string = 2;
2440 isc_arg_cstring = 3;
2441 isc_arg_number = 4;
2442 isc_arg_interpreted = 5;
2443 isc_arg_vms = 6;
2444 isc_arg_unix = 7;
2445 isc_arg_domain = 8;
2446 isc_arg_dos = 9;
2447 isc_arg_mpexl = 10;
2448 isc_arg_mpexl_ipc = 11;
2449 isc_arg_next_mach = 15;
2450 isc_arg_netware = 16;
2451 isc_arg_win32 = 17;
2452 isc_arg_warning = 18;
2453
2454 (************************************************)
2455 (** Dynamic Data Definition Language operators **)
2456 (************************************************)
2457
2458 (********************)
2459 (** Version number **)
2460 (********************)
2461
2462 isc_dyn_version_1 = 1;
2463 isc_dyn_eoc = -1;
2464
2465 (********************************)
2466 (** Operations (may be nested) **)
2467 (********************************)
2468
2469 isc_dyn_begin = 2;
2470 isc_dyn_end = 3;
2471 isc_dyn_if = 4;
2472 isc_dyn_def_database = 5;
2473 isc_dyn_def_global_fld = 6;
2474 isc_dyn_def_local_fld = 7;
2475 isc_dyn_def_idx = 8;
2476 isc_dyn_def_rel = 9;
2477 isc_dyn_def_sql_fld = 10;
2478 isc_dyn_def_view = 12;
2479 isc_dyn_def_trigger = 15;
2480 isc_dyn_def_security_class = 120;
2481 isc_dyn_def_dimension = 140;
2482 isc_dyn_def_generator = 24;
2483 isc_dyn_def_function = 25;
2484 isc_dyn_def_filter = 26;
2485 isc_dyn_def_function_arg = 27;
2486 isc_dyn_def_shadow = 34;
2487 isc_dyn_def_trigger_msg = 17;
2488 isc_dyn_def_file = 36;
2489 isc_dyn_mod_database = 39;
2490 isc_dyn_mod_rel = 11;
2491 isc_dyn_mod_global_fld = 13;
2492 isc_dyn_mod_idx = 102;
2493 isc_dyn_mod_local_fld = 14;
2494 isc_dyn_mod_sql_fld = 216;
2495 isc_dyn_mod_view = 16;
2496 isc_dyn_mod_security_class = 122;
2497 isc_dyn_mod_trigger = 113;
2498 isc_dyn_mod_trigger_msg = 28;
2499 isc_dyn_delete_database = 18;
2500 isc_dyn_delete_rel = 19;
2501 isc_dyn_delete_global_fld = 20;
2502 isc_dyn_delete_local_fld = 21;
2503 isc_dyn_delete_idx = 22;
2504 isc_dyn_delete_security_class = 123;
2505 isc_dyn_delete_dimensions = 143;
2506 isc_dyn_delete_trigger = 23;
2507 isc_dyn_delete_trigger_msg = 29;
2508 isc_dyn_delete_filter = 32;
2509 isc_dyn_delete_function = 33;
2510 isc_dyn_delete_shadow = 35;
2511 isc_dyn_grant = 30;
2512 isc_dyn_revoke = 31;
2513 isc_dyn_def_primary_key = 37;
2514 isc_dyn_def_foreign_key = 38;
2515 isc_dyn_def_unique = 40;
2516 isc_dyn_def_procedure = 164;
2517 isc_dyn_delete_procedure = 165;
2518 isc_dyn_def_parameter = 135;
2519 isc_dyn_delete_parameter = 136;
2520 isc_dyn_mod_procedure = 175;
2521 isc_dyn_def_log_file = 176;
2522 isc_dyn_def_cache_file = 180;
2523 isc_dyn_def_exception = 181;
2524 isc_dyn_mod_exception = 182;
2525 isc_dyn_del_exception = 183;
2526 isc_dyn_drop_log = 194;
2527 isc_dyn_drop_cache = 195;
2528 isc_dyn_def_default_log = 202;
2529
2530 (*************************)
2531 (** View specific stuff **)
2532 (*************************)
2533
2534 isc_dyn_view_blr = 43;
2535 isc_dyn_view_source = 44;
2536 isc_dyn_view_relation = 45;
2537 isc_dyn_view_context = 46;
2538 isc_dyn_view_context_name = 47;
2539
2540 (************************)
2541 (** Generic attributes **)
2542 (************************)
2543
2544 isc_dyn_rel_name = 50;
2545 isc_dyn_fld_name = 51;
2546 isc_dyn_new_fld_name = 215;
2547 isc_dyn_idx_name = 52;
2548 isc_dyn_description = 53;
2549 isc_dyn_security_class = 54;
2550 isc_dyn_system_flag = 55;
2551 isc_dyn_update_flag = 56;
2552 isc_dyn_prc_name = 166;
2553 isc_dyn_prm_name = 137;
2554 isc_dyn_sql_object = 196;
2555 isc_dyn_fld_character_set_name = 174;
2556
2557 (**********************************)
2558 (** Relation specific attributes **)
2559 (**********************************)
2560
2561 isc_dyn_rel_dbkey_length = 61;
2562 isc_dyn_rel_store_trig = 62;
2563 isc_dyn_rel_modify_trig = 63;
2564 isc_dyn_rel_erase_trig = 64;
2565 isc_dyn_rel_store_trig_source = 65;
2566 isc_dyn_rel_modify_trig_source = 66;
2567 isc_dyn_rel_erase_trig_source = 67;
2568 isc_dyn_rel_ext_file = 68;
2569 isc_dyn_rel_sql_protection = 69;
2570 isc_dyn_rel_constraint = 162;
2571 isc_dyn_delete_rel_constraint = 163;
2572
2573 (**************************************)
2574 (** Global field specific attributes **)
2575 (**************************************)
2576
2577 isc_dyn_fld_type = 70;
2578 isc_dyn_fld_length = 71;
2579 isc_dyn_fld_scale = 72;
2580 isc_dyn_fld_sub_type = 73;
2581 isc_dyn_fld_segment_length = 74;
2582 isc_dyn_fld_query_header = 75;
2583 isc_dyn_fld_edit_string = 76;
2584 isc_dyn_fld_validation_blr = 77;
2585 isc_dyn_fld_validation_source = 78;
2586 isc_dyn_fld_computed_blr = 79;
2587 isc_dyn_fld_computed_source = 80;
2588 isc_dyn_fld_missing_value = 81;
2589 isc_dyn_fld_default_value = 82;
2590 isc_dyn_fld_query_name = 83;
2591 isc_dyn_fld_dimensions = 84;
2592 isc_dyn_fld_not_null = 85;
2593 isc_dyn_fld_precision = 86;
2594 isc_dyn_fld_char_length = 172;
2595 isc_dyn_fld_collation = 173;
2596 isc_dyn_fld_default_source = 193;
2597 isc_dyn_del_default = 197;
2598 isc_dyn_del_validation = 198;
2599 isc_dyn_single_validation = 199;
2600 isc_dyn_fld_character_set = 203;
2601
2602 (*************************************)
2603 (** Local field specific attributes **)
2604 (*************************************)
2605
2606 isc_dyn_fld_source = 90;
2607 isc_dyn_fld_base_fld = 91;
2608 isc_dyn_fld_position = 92;
2609 isc_dyn_fld_update_flag = 93;
2610
2611 (*******************************)
2612 (** Index specific attributes **)
2613 (*******************************)
2614
2615 isc_dyn_idx_unique = 100;
2616 isc_dyn_idx_inactive = 101;
2617 isc_dyn_idx_type = 103;
2618 isc_dyn_idx_foreign_key = 104;
2619 isc_dyn_idx_ref_column = 105;
2620 isc_dyn_idx_statistic = 204;
2621
2622 (*********************************)
2623 (** Trigger specific attributes **)
2624 (*********************************)
2625
2626 isc_dyn_trg_type = 110;
2627 isc_dyn_trg_blr = 111;
2628 isc_dyn_trg_source = 112;
2629 isc_dyn_trg_name = 114;
2630 isc_dyn_trg_sequence = 115;
2631 isc_dyn_trg_inactive = 116;
2632 isc_dyn_trg_msg_number = 117;
2633 isc_dyn_trg_msg = 118;
2634
2635 (****************************************)
2636 (** Security Class specific attributes **)
2637 (****************************************)
2638
2639 isc_dyn_scl_acl = 121;
2640 isc_dyn_grant_user = 130;
2641 isc_dyn_grant_proc = 186;
2642 isc_dyn_grant_trig = 187;
2643 isc_dyn_grant_view = 188;
2644 isc_dyn_grant_options = 132;
2645 isc_dyn_grant_user_group = 205;
2646
2647 (************************************)
2648 (** Dimension specific information **)
2649 (************************************)
2650
2651 isc_dyn_dim_lower = 141;
2652 isc_dyn_dim_upper = 142;
2653
2654 (******************************)
2655 (** File specific attributes **)
2656 (******************************)
2657
2658 isc_dyn_file_name = 125;
2659 isc_dyn_file_start = 126;
2660 isc_dyn_file_length = 127;
2661 isc_dyn_shadow_number = 128;
2662 isc_dyn_shadow_man_auto = 129;
2663 isc_dyn_shadow_conditional = 130;
2664
2665 (**********************************)
2666 (** Log file specific attributes **)
2667 (**********************************)
2668
2669 isc_dyn_log_file_sequence = 177;
2670 isc_dyn_log_file_partitions = 178;
2671 isc_dyn_log_file_serial = 179;
2672 isc_dyn_log_file_overflow = 200;
2673 isc_dyn_log_file_raw = 201;
2674
2675 (*****************************)
2676 (** Log specific attributes **)
2677 (*****************************)
2678
2679 isc_dyn_log_group_commit_wait = 189;
2680 isc_dyn_log_buffer_size = 190;
2681 isc_dyn_log_check_point_length = 191;
2682 isc_dyn_log_num_of_buffers = 192;
2683
2684 (**********************************)
2685 (** Function specific attributes **)
2686 (**********************************)
2687
2688 isc_dyn_function_name = 145;
2689 isc_dyn_function_type = 146;
2690 isc_dyn_func_module_name = 147;
2691 isc_dyn_func_entry_point = 148;
2692 isc_dyn_func_return_argument = 149;
2693 isc_dyn_func_arg_position = 150;
2694 isc_dyn_func_mechanism = 151;
2695 isc_dyn_filter_in_subtype = 152;
2696 isc_dyn_filter_out_subtype = 153;
2697
2698
2699 isc_dyn_description2 = 154;
2700 isc_dyn_fld_computed_source2 = 155;
2701 isc_dyn_fld_edit_string2 = 156;
2702 isc_dyn_fld_query_header2 = 157;
2703 isc_dyn_fld_validation_source2 = 158;
2704 isc_dyn_trg_msg2 = 159;
2705 isc_dyn_trg_source2 = 160;
2706 isc_dyn_view_source2 = 161;
2707 isc_dyn_xcp_msg2 = 184;
2708
2709 (***********************************)
2710 (** Generator specific attributes **)
2711 (***********************************)
2712
2713 isc_dyn_generator_name = 95;
2714 isc_dyn_generator_id = 96;
2715
2716 (***********************************)
2717 (** Procedure specific attributes **)
2718 (***********************************)
2719
2720 isc_dyn_prc_inputs = 167;
2721 isc_dyn_prc_outputs = 168;
2722 isc_dyn_prc_source = 169;
2723 isc_dyn_prc_blr = 170;
2724 isc_dyn_prc_source2 = 171;
2725
2726 (***********************************)
2727 (** Parameter specific attributes **)
2728 (***********************************)
2729
2730 isc_dyn_prm_number = 138;
2731 isc_dyn_prm_type = 139;
2732
2733 (**********************************)
2734 (** Relation specific attributes **)
2735 (**********************************)
2736
2737 isc_dyn_xcp_msg = 185;
2738
2739 (************************************************)
2740 (** Cascading referential integrity values **)
2741 (************************************************)
2742 isc_dyn_foreign_key_update = 205;
2743 isc_dyn_foreign_key_delete = 206;
2744 isc_dyn_foreign_key_cascade = 207;
2745 isc_dyn_foreign_key_default = 208;
2746 isc_dyn_foreign_key_null = 209;
2747 isc_dyn_foreign_key_none = 210;
2748
2749 (*************************)
2750 (** SQL role values **)
2751 (*************************)
2752 isc_dyn_def_sql_role = 211;
2753 isc_dyn_sql_role_name = 212;
2754 isc_dyn_grant_admin_options = 213;
2755 isc_dyn_del_sql_role = 214;
2756
2757 (******************************)
2758 (** Last $dyn value assigned **)
2759 (******************************)
2760
2761 isc_dyn_last_dyn_value = 216;
2762
2763 (********************************************)
2764 (** Array slice description language (SDL) **)
2765 (********************************************)
2766
2767 isc_sdl_version1 = 1;
2768 isc_sdl_eoc = -1;
2769 isc_sdl_relation = 2;
2770 isc_sdl_rid = 3;
2771 isc_sdl_field = 4;
2772 isc_sdl_fid = 5;
2773 isc_sdl_struct = 6;
2774 isc_sdl_variable = 7;
2775 isc_sdl_scalar = 8;
2776 isc_sdl_tiny_integer = 9;
2777 isc_sdl_short_integer = 10;
2778 isc_sdl_long_integer = 11;
2779 isc_sdl_literal = 12;
2780 isc_sdl_add = 13;
2781 isc_sdl_subtract = 14;
2782 isc_sdl_multiply = 15;
2783 isc_sdl_divide = 16;
2784 isc_sdl_negate = 17;
2785 isc_sdl_eql = 18;
2786 isc_sdl_neq = 19;
2787 isc_sdl_gtr = 20;
2788 isc_sdl_geq = 21;
2789 isc_sdl_lss = 22;
2790 isc_sdl_leq = 23;
2791 isc_sdl_and = 24;
2792 isc_sdl_or = 25;
2793 isc_sdl_not = 26;
2794 isc_sdl_while = 27;
2795 isc_sdl_assignment = 28;
2796 isc_sdl_label = 29;
2797 isc_sdl_leave = 30;
2798 isc_sdl_begin = 31;
2799 isc_sdl_end = 32;
2800 isc_sdl_do3 = 33;
2801 isc_sdl_do2 = 34;
2802 isc_sdl_do1 = 35;
2803 isc_sdl_element = 36;
2804
2805 (**********************************************)
2806 (** International text interpretation values **)
2807 (**********************************************)
2808
2809 isc_interp_eng_ascii = 0;
2810 isc_interp_jpn_sjis = 5;
2811 isc_interp_jpn_euc = 6;
2812
2813 (******************************************)
2814 (** Scroll direction for isc_dsql_fetch2 **)
2815 (******************************************)
2816
2817 isc_fetch_next = 0;
2818 isc_fetch_prior = 1;
2819 isc_fetch_first = 2;
2820 isc_fetch_last = 3;
2821 isc_fetch_absolute = 4;
2822 isc_fetch_relative = 5;
2823
2824 (*********************)
2825 (** SQL definitions **)
2826 (*********************)
2827 SQL_VARYING = 448;
2828 SQL_TEXT = 452;
2829 SQL_DOUBLE = 480;
2830 SQL_FLOAT = 482;
2831 SQL_LONG = 496;
2832 SQL_SHORT = 500;
2833 SQL_TIMESTAMP = 510;
2834 SQL_BLOB = 520;
2835 SQL_D_FLOAT = 530;
2836 SQL_ARRAY = 540;
2837 SQL_QUAD = 550;
2838 SQL_TYPE_TIME = 560;
2839 SQL_TYPE_DATE = 570;
2840 SQL_INT64 = 580;
2841 SQL_BOOLEAN = 32764;
2842 SQL_DATE = SQL_TIMESTAMP;
2843
2844 (*******************)
2845 (** Blob Subtypes **)
2846 (*******************)
2847
2848 (** types less than zero are reserved for customer use **)
2849
2850 isc_blob_untyped = 0;
2851
2852 (** internal subtypes **)
2853
2854 isc_blob_text = 1;
2855 isc_blob_blr = 2;
2856 isc_blob_acl = 3;
2857 isc_blob_ranges = 4;
2858 isc_blob_summary = 5;
2859 isc_blob_format = 6;
2860 isc_blob_tra = 7;
2861 isc_blob_extfile = 8;
2862
2863 (** the range 20-30 is reserved for dBASE and Paradox types **)
2864
2865 isc_blob_formatted_memo = 20;
2866 isc_blob_paradox_ole = 21;
2867 isc_blob_graphic = 22;
2868 isc_blob_dbase_ole = 23;
2869 isc_blob_typed_binary = 24;
2870
2871 {$IFDEF IB5_ONLY}
2872 (** SQLDA_LENGTH is defined in C as a macro, but in Pascal we must defined it
2873 as a function... **)
2874 function SQLDA_LENGTH(n: Long): Long;
2875 {$ENDIF}
2876
2877 (** XSQLDA_LENGTH is defined in C as a macro, but in Pascal we must defined it
2878 as a function... **)
2879 function XSQLDA_LENGTH(n: Long): Long;
2880
2881 (** getb, putb, putbx are all defined in C as macros.
2882 Use functions and procedures for the functionality **)
2883 function getb (p: PBSTREAM): Char;
2884 function putb (x: Char; p: PBSTREAM): Int;
2885 function putbx (x: Char; p: PBSTREAM): Int;
2886
2887 (*
2888 #define ADD_SPB_LENGTH(p, length) {*(p)++ = (length); \
2889 *(p)++ = (length) >> 8;}
2890
2891 #define ADD_SPB_NUMERIC(p, data) {*(p)++ = (data); \
2892 *(p)++ = (data) >> 8; \
2893 *(p)++ = (data) >> 16; \
2894 *(p)++ = (data) >> 24;}
2895 *)
2896 procedure add_spb_length(var p: PChar; length: integer);
2897 procedure add_spb_numeric(var p: PChar; data: integer);
2898
2899
2900 implementation
2901
2902 uses IBIntf, IB;
2903
2904 {$IFDEF IB5_ONLY}
2905 function SQLDA_LENGTH(n: Long): Long;
2906 (* The C-macro reads like this:
2907 SQLDA_LENGTH(n) (sizeof (SQLDA) + (n-1) * sizeof (SQLVAR)) *)
2908 begin
2909 result := sizeof(TSQLDA) + ((n - 1) * sizeof(TSQLVAR));
2910 end;
2911 {$ENDIF}
2912
2913
2914 function XSQLDA_LENGTH(n: Long): Long;
2915 (* The C-macro reads like this:
2916 XSQLDA_LENGTH(n) (sizeof (XSQLDA) + (n-1) * sizeof (XSQLVAR)) *)
2917 begin
2918 result := SizeOf(TXSQLDA) + ((n - 1) * SizeOf(TXSQLVAR));
2919 end;
2920
2921 function getb(p: PBSTREAM): Char;
2922 (* The C-macro reads like this:
2923 getb(p) (--(p)->bstr_cnt >= 0 ? *(p)->bstr_ptr++ & 0377: BLOB_get (p)) *)
2924 begin
2925 Dec(p^.bstr_cnt);
2926 if (p^.bstr_cnt >= 0) then begin
2927 result := Char(Int(p^.bstr_ptr^) and Int(0377));
2928 Inc(p^.bstr_ptr);
2929 end else
2930 result := Char(BLOB_get(p));
2931 end;
2932
2933 function putb(x: Char; p: PBSTREAM): Int;
2934 (* The C-macro reads like this:
2935 putb(x,p) ((x == '\n' || (!(--(p)->bstr_cnt))) ? // then
2936 BLOB_put (x,p) : // else
2937 ((int) (*(p)->bstr_ptr++ = (unsigned) (x)))) *)
2938 begin
2939 Dec(p^.bstr_cnt);
2940 if (x = Chr(Int('n') - Int('a'))) or (p^.bstr_cnt = 0) then
2941 result := BLOB_put(x, p)
2942 else begin
2943 p^.bstr_ptr^ := Char(x);
2944 result := UInt(x);
2945 Inc(p^.bstr_ptr^);
2946 end;
2947 end;
2948
2949 function putbx(x: Char; p: PBSTREAM): Int;
2950 (* The C-macro reads like this:
2951 putbx(x,p) ((!(--(p)->bstr_cnt)) ? // then
2952 BLOB_put (x,p) : // else
2953 ((int) (*(p)->bstr_ptr++ = (unsigned) (x)))) *)
2954 begin
2955 Dec(p^.bstr_cnt);
2956 if (p^.bstr_cnt = 0) then
2957 result := BLOB_put(x, p)
2958 else begin
2959 p^.bstr_ptr^ := Char(x);
2960 Inc(p^.bstr_ptr^);
2961 result := UInt(x);
2962 end;
2963 end;
2964
2965 (*******************************************)
2966 (** Service manager functions **)
2967 (*******************************************)
2968
2969
2970 procedure add_spb_length(var p: PChar; length: integer);
2971 (*
2972 #define ADD_SPB_LENGTH(p, length) {*(p)++ = (length); \
2973 *(p)++ = (length) >> 8;}
2974 *)
2975 begin
2976 p^ := char(length);
2977 Inc (p);
2978 p^ := char(length shr 8);
2979 Inc (p);
2980 end;
2981
2982 procedure add_spb_numeric(var p: PChar; data: integer);
2983 (*
2984 #define ADD_SPB_NUMERIC(p, data) {*(p)++ = (data); \
2985 *(p)++ = (data) >> 8; \
2986 *(p)++ = (data) >> 16; \
2987 *(p)++ = (data) >> 24;}
2988 *)
2989 begin
2990 p^ := char(data);
2991 Inc (p);
2992 p^ := char(data shr 8);
2993 Inc (p);
2994 p^ := char(data shr 16);
2995 Inc (p);
2996 p^ := char(data shr 24);
2997 Inc (p);
2998 end;
2999
3000 end.
3001