28 |
|
|
29 |
|
unit IBHeader; |
30 |
|
|
31 |
+ |
{$Mode Delphi} |
32 |
+ |
|
33 |
|
interface |
34 |
|
|
35 |
|
uses |
41 |
|
ISC_FALSE = 0; |
42 |
|
DSQL_close = 1; |
43 |
|
DSQL_drop = 2; |
44 |
< |
IBASE_DLL = 'gds32.dll'; {do not localize} |
44 |
> |
{$IFDEF LINUX} |
45 |
> |
FIREBIRD_SO = 'libfbclient.so'; |
46 |
> |
{$ELSE} |
47 |
> |
IBASE_DLL = 'gds32.dll'; |
48 |
> |
FIREBIRD_CLIENT = 'fbclient.dll'; {do not localize} |
49 |
> |
FIREBIRD_EMBEDDED = 'fbembedded.dll'; |
50 |
> |
{$ENDIF} |
51 |
|
|
52 |
|
const |
53 |
|
SQLDA_VERSION1 = 1; (* pre V6.0 SQLDA *) |
68 |
|
(**********************************) |
69 |
|
(** InterBase Handle Definitions **) |
70 |
|
(**********************************) |
71 |
< |
TISC_ATT_HANDLE = PVoid; |
71 |
> |
TISC_ATT_HANDLE = FB_API_HANDLE; |
72 |
|
PISC_ATT_HANDLE = ^TISC_ATT_HANDLE; |
73 |
< |
TISC_BLOB_HANDLE = PVoid; |
73 |
> |
TISC_BLOB_HANDLE = FB_API_HANDLE; |
74 |
|
PISC_BLOB_HANDLE = ^TISC_BLOB_HANDLE; |
75 |
< |
TISC_DB_HANDLE = PVoid; |
75 |
> |
TISC_DB_HANDLE = FB_API_HANDLE; |
76 |
|
PISC_DB_HANDLE = ^TISC_DB_HANDLE; |
77 |
< |
TISC_FORM_HANDLE = PVoid; |
77 |
> |
TISC_FORM_HANDLE = FB_API_HANDLE; |
78 |
|
PISC_FORM_HANDLE = ^TISC_FORM_HANDLE; |
79 |
< |
TISC_REQ_HANDLE = PVoid; |
79 |
> |
TISC_REQ_HANDLE = FB_API_HANDLE; |
80 |
|
PISC_REQ_HANDLE = ^TISC_REQ_HANDLE; |
81 |
< |
TISC_STMT_HANDLE = PVoid; |
81 |
> |
TISC_STMT_HANDLE = FB_API_HANDLE; |
82 |
|
PISC_STMT_HANDLE = ^TISC_STMT_HANDLE; |
83 |
< |
TISC_SVC_HANDLE = PVoid; |
83 |
> |
TISC_SVC_HANDLE = FB_API_HANDLE; |
84 |
|
PISC_SVC_HANDLE = ^TISC_SVC_HANDLE; |
85 |
< |
TISC_TR_HANDLE = PVoid; |
85 |
> |
TISC_TR_HANDLE = FB_API_HANDLE; |
86 |
|
PISC_TR_HANDLE = ^TISC_TR_HANDLE; |
87 |
< |
TISC_WIN_HANDLE = PVoid; |
87 |
> |
TISC_WIN_HANDLE = FB_API_HANDLE; |
88 |
|
PISC_WIN_HANDLE = ^TISC_WIN_HANDLE; |
89 |
|
TISC_CALLBACK = procedure; |
90 |
|
ISC_SVC_HANDLE = ISC_LONG; |
280 |
|
db_handle : PISC_DB_HANDLE; |
281 |
|
parm_buffer_length : Short; |
282 |
|
parm_buffer : PChar): ISC_STATUS; |
283 |
< |
stdcall; |
283 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
284 |
|
|
285 |
|
Tisc_array_gen_sdl = function (status_vector : PISC_STATUS; |
286 |
|
isc_array_desc : PISC_ARRAY_DESC; |
287 |
|
isc_arg3 : PShort; |
288 |
|
isc_arg4 : PChar; |
289 |
|
isc_arg5 : PShort): ISC_STATUS; |
290 |
< |
stdcall; |
290 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
291 |
|
|
292 |
|
Tisc_array_get_slice = function (status_vector : PISC_STATUS; |
293 |
|
db_handle : PISC_DB_HANDLE; |
296 |
|
descriptor : PISC_ARRAY_DESC; |
297 |
|
dest_array : PVoid; |
298 |
|
slice_length : ISC_LONG): ISC_STATUS; |
299 |
< |
stdcall; |
299 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
300 |
|
|
301 |
|
Tisc_array_lookup_bounds = function (status_vector : PISC_STATUS; |
302 |
|
db_handle : PISC_DB_HANDLE; |
304 |
|
table_name, |
305 |
|
column_name : PChar; |
306 |
|
descriptor : PISC_ARRAY_DESC): ISC_STATUS; |
307 |
< |
stdcall; |
307 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
308 |
|
|
309 |
|
Tisc_array_lookup_desc = function (status_vector : PISC_STATUS; |
310 |
|
db_handle : PISC_DB_HANDLE; |
312 |
|
table_name, |
313 |
|
column_name : PChar; |
314 |
|
descriptor : PISC_ARRAY_DESC): ISC_STATUS; |
315 |
< |
stdcall; |
315 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
316 |
|
|
317 |
|
Tisc_array_set_desc = function (status_vector : PISC_STATUS; |
318 |
|
table_name : PChar; |
321 |
|
sql_length, |
322 |
|
sql_dimensions : PShort; |
323 |
|
descriptor : PISC_ARRAY_DESC): ISC_STATUS; |
324 |
< |
stdcall; |
324 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
325 |
|
|
326 |
|
Tisc_array_put_slice = function (status_vector : PISC_STATUS; |
327 |
|
db_handle : PISC_DB_HANDLE; |
330 |
|
descriptor : PISC_ARRAY_DESC; |
331 |
|
source_array : PVoid; |
332 |
|
slice_length : PISC_LONG): ISC_STATUS; |
333 |
< |
stdcall; |
333 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
334 |
|
|
335 |
|
Tisc_blob_default_desc = procedure (descriptor : PISC_BLOB_DESC; |
336 |
|
table_name : PUChar; |
337 |
|
column_name : PUChar); |
338 |
< |
stdcall; |
338 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
339 |
|
|
340 |
|
Tisc_blob_gen_bpb = function (status_vector : PISC_STATUS; |
341 |
|
to_descriptor, |
343 |
|
bpb_buffer_length : UShort; |
344 |
|
bpb_buffer : PUChar; |
345 |
|
bpb_length : PUShort): ISC_STATUS; |
346 |
< |
stdcall; |
346 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
347 |
|
|
348 |
|
Tisc_blob_info = function (status_vector : PISC_STATUS; |
349 |
|
blob_handle : PISC_BLOB_HANDLE; |
351 |
|
item_list_buffer : PChar; |
352 |
|
result_buffer_length : Short; |
353 |
|
result_buffer : PChar): ISC_STATUS; |
354 |
< |
stdcall; |
354 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
355 |
|
|
356 |
|
Tisc_blob_lookup_desc = function (status_vector : PISC_STATUS; |
357 |
|
db_handle : PISC_DB_HANDLE; |
360 |
|
column_name : PChar; |
361 |
|
descriptor : PISC_BLOB_DESC; |
362 |
|
global : PUChar): ISC_STATUS; |
363 |
< |
stdcall; |
363 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
364 |
|
|
365 |
|
Tisc_blob_set_desc = function (status_vector : PISC_STATUS; |
366 |
|
table_name, |
369 |
|
charset, |
370 |
|
segment_size : Short; |
371 |
|
descriptor : PISC_BLOB_DESC): ISC_STATUS; |
372 |
< |
stdcall; |
372 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
373 |
|
|
374 |
|
Tisc_cancel_blob = function (status_vector : PISC_STATUS; |
375 |
|
blob_handle : PISC_BLOB_HANDLE): ISC_STATUS; |
376 |
< |
stdcall; |
376 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
377 |
|
|
378 |
|
Tisc_cancel_events = function (status_vector : PISC_STATUS; |
379 |
|
db_handle : PISC_DB_HANDLE; |
380 |
|
event_id : PISC_LONG): ISC_STATUS; |
381 |
< |
stdcall; |
381 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
382 |
|
|
383 |
|
Tisc_close_blob = function (status_vector : PISC_STATUS; |
384 |
|
blob_handle : PISC_BLOB_HANDLE): ISC_STATUS; |
385 |
< |
stdcall; |
385 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
386 |
|
|
387 |
|
Tisc_commit_retaining = function (status_vector : PISC_STATUS; |
388 |
|
tran_handle : PISC_TR_HANDLE): ISC_STATUS; |
389 |
< |
stdcall; |
389 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
390 |
|
|
391 |
|
Tisc_commit_transaction = function (status_vector : PISC_STATUS; |
392 |
|
tran_handle : PISC_TR_HANDLE): ISC_STATUS; |
393 |
< |
stdcall; |
393 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
394 |
|
|
395 |
|
Tisc_create_blob = function (status_vector : PISC_STATUS; |
396 |
|
db_handle : PISC_DB_HANDLE; |
397 |
|
tran_handle : PISC_TR_HANDLE; |
398 |
|
blob_handle : PISC_BLOB_HANDLE; |
399 |
|
blob_id : PISC_QUAD): ISC_STATUS; |
400 |
< |
stdcall; |
400 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
401 |
|
|
402 |
|
Tisc_create_blob2 = function (status_vector : PISC_STATUS; |
403 |
|
db_handle : PISC_DB_HANDLE; |
406 |
|
blob_id : PISC_QUAD; |
407 |
|
bpb_length : Short; |
408 |
|
bpb_address : PChar): ISC_STATUS; |
409 |
< |
stdcall; |
409 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
410 |
|
|
411 |
|
Tisc_create_database = function (status_vector : PISC_STATUS; |
412 |
|
isc_arg2 : Short; |
415 |
|
isc_arg5 : Short; |
416 |
|
isc_arg6 : PChar; |
417 |
|
isc_arg7 : Short): ISC_STATUS; |
418 |
< |
stdcall; |
418 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
419 |
|
|
420 |
|
Tisc_database_info = function (status_vector : PISC_STATUS; |
421 |
|
db_handle : PISC_DB_HANDLE; |
423 |
|
item_list_buffer : PChar; |
424 |
|
result_buffer_length : Short; |
425 |
|
result_buffer : PChar): ISC_STATUS; |
426 |
< |
stdcall; |
426 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
427 |
|
|
428 |
|
Tisc_decode_date = procedure (ib_date: PISC_QUAD; |
429 |
|
tm_date: PCTimeStructure); |
430 |
< |
stdcall; |
430 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
431 |
|
|
432 |
|
Tisc_decode_sql_date = procedure (ib_date: PISC_DATE; |
433 |
|
tm_date: PCTimeStructure); |
434 |
< |
stdcall; |
434 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
435 |
|
|
436 |
|
Tisc_decode_sql_time = procedure (ib_time: PISC_TIME; |
437 |
|
tm_date: PCTimeStructure); |
438 |
< |
stdcall; |
438 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
439 |
|
|
440 |
|
Tisc_decode_timestamp = procedure (ib_timestamp: PISC_TIMESTAMP; |
441 |
|
tm_date: PCTimeStructure); |
442 |
< |
stdcall; |
442 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
443 |
|
|
444 |
|
Tisc_detach_database = function (status_vector : PISC_STATUS; |
445 |
|
db_handle : PISC_DB_HANDLE): ISC_STATUS; |
446 |
< |
stdcall; |
446 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
447 |
|
|
448 |
|
Tisc_drop_database = function (status_vector : PISC_STATUS; |
449 |
|
db_handle : PISC_DB_HANDLE): ISC_STATUS; |
450 |
< |
stdcall; |
450 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
451 |
|
|
452 |
|
Tisc_dsql_allocate_statement = function (status_vector : PISC_STATUS; |
453 |
|
db_handle : PISC_DB_HANDLE; |
454 |
|
stmt_handle : PISC_STMT_HANDLE): ISC_STATUS; |
455 |
< |
stdcall; |
455 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
456 |
|
|
457 |
|
Tisc_dsql_alloc_statement2 = function (status_vector : PISC_STATUS; |
458 |
|
db_handle : PISC_DB_HANDLE; |
459 |
|
stmt_handle : PISC_STMT_HANDLE): ISC_STATUS; |
460 |
< |
stdcall; |
460 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
461 |
|
|
462 |
|
Tisc_dsql_describe = function (status_vector : PISC_STATUS; |
463 |
|
stmt_handle : PISC_STMT_HANDLE; |
464 |
|
dialect : UShort; |
465 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
466 |
< |
stdcall; |
466 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
467 |
|
|
468 |
|
Tisc_dsql_describe_bind = function (status_vector : PISC_STATUS; |
469 |
|
stmt_handle : PISC_STMT_HANDLE; |
470 |
|
dialect : UShort; |
471 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
472 |
< |
stdcall; |
472 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
473 |
|
|
474 |
|
Tisc_dsql_exec_immed2 = function (status_vector : PISC_STATUS; |
475 |
|
db_handle : PISC_DB_HANDLE; |
479 |
|
dialect : UShort; |
480 |
|
in_xsqlda, |
481 |
|
out_xsqlda : PXSQLDA): ISC_STATUS; |
482 |
< |
stdcall; |
482 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
483 |
|
|
484 |
|
Tisc_dsql_execute = function (status_vector : PISC_STATUS; |
485 |
|
tran_handle : PISC_TR_HANDLE; |
486 |
|
stmt_handle : PISC_STMT_HANDLE; |
487 |
|
dialect : UShort; |
488 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
489 |
< |
stdcall; |
489 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
490 |
|
|
491 |
|
Tisc_dsql_execute2 = function (status_vector : PISC_STATUS; |
492 |
|
tran_handle : PISC_TR_HANDLE; |
494 |
|
dialect : UShort; |
495 |
|
in_xsqlda, |
496 |
|
out_xsqlda : PXSQLDA): ISC_STATUS; |
497 |
< |
stdcall; |
497 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
498 |
|
|
499 |
|
Tisc_dsql_execute_immediate = function (status_vector : PISC_STATUS; |
500 |
|
db_handle : PISC_DB_HANDLE; |
503 |
|
statement : PChar; |
504 |
|
dialect : UShort; |
505 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
506 |
< |
stdcall; |
506 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
507 |
|
|
508 |
|
Tisc_dsql_fetch = function (status_vector : PISC_STATUS; |
509 |
|
stmt_handle : PISC_STMT_HANDLE; |
510 |
|
dialect : UShort; |
511 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
512 |
< |
stdcall; |
512 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
513 |
|
|
514 |
|
(*$ifdef SCROLLABLE_CURSORS*) |
515 |
|
Tisc_dsql_fetch2 = function (status_vector : PISC_STATUS; |
518 |
|
xsqlda : PXSQLDA; |
519 |
|
isc_arg5 : UShort; |
520 |
|
isc_arg6 : Long): ISC_STATUS; |
521 |
< |
stdcall; |
521 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
522 |
|
(*$endif*) |
523 |
|
|
524 |
|
Tisc_dsql_finish = function (db_handle : PISC_DB_HANDLE): ISC_STATUS; |
525 |
< |
stdcall; |
525 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
526 |
|
|
527 |
|
Tisc_dsql_free_statement = function (status_vector : PISC_STATUS; |
528 |
|
stmt_handle : PISC_STMT_HANDLE; |
529 |
|
options : UShort): ISC_STATUS; |
530 |
< |
stdcall; |
530 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
531 |
|
|
532 |
|
Tisc_dsql_insert = function (status_vector : PISC_STATUS; |
533 |
|
stmt_handle : PISC_STMT_HANDLE; |
534 |
|
arg3 : UShort; |
535 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
536 |
< |
stdcall; |
536 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
537 |
|
|
538 |
|
Tisc_dsql_prepare = function (status_vector : PISC_STATUS; |
539 |
|
tran_handle : PISC_TR_HANDLE; |
542 |
|
statement : PChar; |
543 |
|
dialect : UShort; |
544 |
|
xsqlda : PXSQLDA): ISC_STATUS; |
545 |
< |
stdcall; |
545 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
546 |
|
|
547 |
|
Tisc_dsql_set_cursor_name = function (status_vector : PISC_STATUS; |
548 |
|
stmt_handle : PISC_STMT_HANDLE; |
549 |
|
cursor_name : PChar; |
550 |
|
_type : UShort): ISC_STATUS; |
551 |
< |
stdcall; |
551 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
552 |
|
|
553 |
|
Tisc_dsql_sql_info = function (status_vector : PISC_STATUS; |
554 |
|
stmt_handle : PISC_STMT_HANDLE; |
556 |
|
items : PChar; |
557 |
|
buffer_length : Short; |
558 |
|
buffer : PChar): ISC_STATUS; |
559 |
< |
stdcall; |
559 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
560 |
|
|
561 |
|
Tisc_encode_date = procedure (tm_date : PCTimeStructure; |
562 |
|
ib_date : PISC_QUAD); |
563 |
< |
stdcall; |
563 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
564 |
|
|
565 |
|
Tisc_encode_sql_date = procedure (tm_date : PCTimeStructure; |
566 |
|
ib_date : PISC_DATE); |
567 |
< |
stdcall; |
567 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
568 |
|
|
569 |
|
Tisc_encode_sql_time = procedure (tm_date : PCTimeStructure; |
570 |
|
ib_time : PISC_TIME); |
571 |
< |
stdcall; |
571 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
572 |
|
|
573 |
|
Tisc_encode_timestamp = procedure (tm_date : PCTimeStructure; |
574 |
|
ib_timestamp : PISC_TIMESTAMP); |
575 |
< |
stdcall; |
575 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
576 |
|
|
577 |
|
Tisc_event_block = function (event_buffer : PPChar; |
578 |
|
result_buffer : PPChar; |
584 |
|
buffer_length : Short; |
585 |
|
event_buffer : PChar; |
586 |
|
result_buffer : PChar); |
587 |
< |
stdcall; |
587 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
588 |
|
|
589 |
|
Tisc_expand_dpb = procedure (dpb : PPChar; |
590 |
|
dpb_length : PShort; |
597 |
|
isc_arg4 : UShort; |
598 |
|
isc_arg5 : PChar; |
599 |
|
isc_arg6 : Short): Int; |
600 |
< |
stdcall; |
600 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
601 |
|
|
602 |
|
Tisc_free = function (isc_arg1 : PChar): ISC_LONG; |
603 |
< |
stdcall; |
603 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
604 |
|
|
605 |
|
Tisc_get_segment = function (status_vector : PISC_STATUS; |
606 |
|
blob_handle : PISC_BLOB_HANDLE; |
607 |
|
actual_seg_length : PUShort; |
608 |
|
seg_buffer_length : UShort; |
609 |
|
seg_buffer : PChar): ISC_STATUS; |
610 |
< |
stdcall; |
610 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
611 |
|
|
612 |
|
Tisc_get_slice = function (status_vector : PISC_STATUS; |
613 |
|
db_handle : PISC_DB_HANDLE; |
620 |
|
isc_arg9 : ISC_LONG; |
621 |
|
isc_arg10 : PVoid; |
622 |
|
isc_arg11 : PISC_LONG): ISC_STATUS; |
623 |
< |
stdcall; |
623 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
624 |
|
|
625 |
|
Tisc_interprete = function (buffer : PChar; |
626 |
|
status_vector : PPISC_STATUS): ISC_STATUS; |
627 |
< |
stdcall; |
627 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
628 |
|
|
629 |
|
Tisc_open_blob = function (status_vector : PISC_STATUS; |
630 |
|
db_handle : PISC_DB_HANDLE; |
631 |
|
tran_handle : PISC_TR_HANDLE; |
632 |
|
blob_handle : PISC_BLOB_HANDLE; |
633 |
|
blob_id : PISC_QUAD): ISC_STATUS; |
634 |
< |
stdcall; |
634 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
635 |
|
|
636 |
|
Tisc_open_blob2 = function (status_vector : PISC_STATUS; |
637 |
|
db_handle : PISC_DB_HANDLE; |
640 |
|
blob_id : PISC_QUAD; |
641 |
|
bpb_length : Short; |
642 |
|
bpb_buffer : PChar): ISC_STATUS; |
643 |
< |
stdcall; |
643 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
644 |
|
|
645 |
|
Tisc_prepare_transaction2 = function (status_vector : PISC_STATUS; |
646 |
|
tran_handle : PISC_TR_HANDLE; |
647 |
|
msg_length : Short; |
648 |
|
msg : PChar): ISC_STATUS; |
649 |
< |
stdcall; |
649 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
650 |
|
|
651 |
|
Tisc_print_sqlerror = procedure (sqlcode : Short; |
652 |
|
status_vector : PISC_STATUS); |
653 |
< |
stdcall; |
653 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
654 |
|
|
655 |
|
Tisc_print_status = function (status_vector : PISC_STATUS): ISC_STATUS; |
656 |
< |
stdcall; |
656 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
657 |
|
|
658 |
|
Tisc_put_segment = function (status_vector : PISC_STATUS; |
659 |
|
blob_handle : PISC_BLOB_HANDLE; |
660 |
|
seg_buffer_len : UShort; |
661 |
|
seg_buffer : PChar): ISC_STATUS; |
662 |
< |
stdcall; |
662 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
663 |
|
|
664 |
|
Tisc_put_slice = function (status_vector : PISC_STATUS; |
665 |
|
db_handle : PISC_DB_HANDLE; |
671 |
|
isc_arg8 : PISC_LONG; |
672 |
|
isc_arg9 : ISC_LONG; |
673 |
|
isc_arg10 : PVoid): ISC_STATUS; |
674 |
< |
stdcall; |
674 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
675 |
|
|
676 |
|
Tisc_que_events = function (status_vector : PISC_STATUS; |
677 |
|
db_handle : PISC_DB_HANDLE; |
680 |
|
event_buffer : PChar; |
681 |
|
event_function : TISC_CALLBACK; |
682 |
|
event_function_arg : PVoid): ISC_STATUS; |
683 |
< |
stdcall; |
683 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
684 |
|
|
685 |
|
Tisc_rollback_retaining = function (status_vector : PISC_STATUS; |
686 |
|
tran_handle : PISC_TR_HANDLE): ISC_STATUS; |
687 |
< |
stdcall; |
687 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
688 |
|
|
689 |
|
Tisc_rollback_transaction = function (status_vector : PISC_STATUS; |
690 |
|
tran_handle : PISC_TR_HANDLE): ISC_STATUS; |
691 |
< |
stdcall; |
691 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
692 |
|
|
693 |
|
Tisc_start_multiple = function (status_vector : PISC_STATUS; |
694 |
|
tran_handle : PISC_TR_HANDLE; |
695 |
|
db_handle_count : Short; |
696 |
|
teb_vector_address : PISC_TEB): ISC_STATUS; |
697 |
< |
stdcall; |
697 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
698 |
|
|
699 |
|
Tisc_start_transaction = function (status_vector : PISC_STATUS; |
700 |
|
tran_handle : PISC_TR_HANDLE; |
705 |
|
cdecl; |
706 |
|
|
707 |
|
Tisc_sqlcode = function (status_vector : PISC_STATUS): ISC_LONG; |
708 |
< |
stdcall; |
708 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
709 |
|
|
710 |
|
|
711 |
|
Tisc_sql_interprete = procedure (sqlcode : Short; |
712 |
|
buffer : PChar; |
713 |
|
buffer_length : Short); |
714 |
< |
stdcall; |
714 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
715 |
|
|
716 |
|
Tisc_transaction_info = function (status_vector : PISC_STATUS; |
717 |
|
tran_handle : PISC_TR_HANDLE; |
719 |
|
item_list_buffer : PChar; |
720 |
|
result_buffer_length : Short; |
721 |
|
result_buffer : PChar): ISC_STATUS; |
722 |
< |
stdcall; |
722 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
723 |
|
|
724 |
|
Tisc_transact_request = function (status_vector : PISC_STATUS; |
725 |
|
db_handle : PISC_DB_HANDLE; |
730 |
|
isc_arg7 : PChar; |
731 |
|
isc_arg8 : UShort; |
732 |
|
isc_arg9 : PChar): ISC_STATUS; |
733 |
< |
stdcall; |
733 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
734 |
|
|
735 |
|
Tisc_vax_integer = function (buffer : PChar; |
736 |
|
length : Short): ISC_LONG; |
737 |
< |
stdcall; |
737 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
738 |
|
|
739 |
|
Tisc_portable_integer = function (buffer : PChar; |
740 |
|
length : Short): ISC_INT64; |
741 |
< |
stdcall; |
741 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
742 |
|
|
743 |
|
(***************************************) |
744 |
|
(** Security Functions and structures **) |
781 |
|
|
782 |
|
Tisc_add_user = function (status_vector : PISC_STATUS; |
783 |
|
user_sec_data : PUserSecData): ISC_STATUS; |
784 |
< |
stdcall; |
784 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
785 |
|
|
786 |
|
Tisc_delete_user = function (status_vector : PISC_STATUS; |
787 |
|
user_sec_data : PUserSecData): ISC_STATUS; |
788 |
< |
stdcall; |
788 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
789 |
|
|
790 |
|
Tisc_modify_user = function (status_vector : PISC_STATUS; |
791 |
|
user_sec_data : PUserSecData): ISC_STATUS; |
792 |
< |
stdcall; |
792 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
793 |
|
|
794 |
|
(************************************) |
795 |
|
(** Other OSRI functions **) |
800 |
|
request_handle : PISC_REQ_HANDLE; |
801 |
|
isc_arg4 : Short; |
802 |
|
isc_arg5 : PChar): ISC_STATUS; |
803 |
< |
stdcall; |
803 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
804 |
|
|
805 |
|
Tisc_compile_request2 = function (status_vector : PISC_STATUS; |
806 |
|
db_handle : PISC_DB_HANDLE; |
807 |
|
request_handle : PISC_REQ_HANDLE; |
808 |
|
isc_arg4 : Short; |
809 |
|
isc_arg5 : PChar): ISC_STATUS; |
810 |
< |
stdcall; |
810 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
811 |
|
|
812 |
|
Tisc_ddl = function (status_vector : PISC_STATUS; |
813 |
|
db_handle : PISC_DB_HANDLE; |
814 |
|
tran_handle : PISC_TR_HANDLE; |
815 |
|
isc_arg4 : Short; |
816 |
|
isc_arg5 : PChar): ISC_STATUS; |
817 |
< |
stdcall; |
817 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
818 |
|
|
819 |
|
Tisc_prepare_transaction = function (status_vector : PISC_STATUS; |
820 |
|
tran_handle : PISC_TR_HANDLE): ISC_STATUS; |
821 |
< |
stdcall; |
821 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
822 |
|
|
823 |
|
|
824 |
|
Tisc_receive = function (status_vector : PISC_STATUS; |
827 |
|
isc_arg4 : Short; |
828 |
|
isc_arg5 : PVoid; |
829 |
|
isc_arg6 : Short): ISC_STATUS; |
830 |
< |
stdcall; |
830 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
831 |
|
|
832 |
|
Tisc_receive2 = function (status_vector : PISC_STATUS; |
833 |
|
request_handle : PISC_REQ_HANDLE; |
837 |
|
isc_arg6, |
838 |
|
isc_arg7 : Short; |
839 |
|
isc_arg8 : Long): ISC_STATUS; |
840 |
< |
stdcall; |
840 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
841 |
|
|
842 |
|
Tisc_reconnect_transaction = function (status_vector : PISC_STATUS; |
843 |
|
db_handle : PISC_DB_HANDLE; |
844 |
|
tran_handle : PISC_TR_HANDLE; |
845 |
|
isc_arg4 : Short; |
846 |
|
isc_arg5 : PChar): ISC_STATUS; |
847 |
< |
stdcall; |
847 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
848 |
|
|
849 |
|
Tisc_release_request = function (status_vector : PISC_STATUS; |
850 |
|
request_handle : PISC_REQ_HANDLE): ISC_STATUS; |
851 |
< |
stdcall; |
851 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
852 |
|
|
853 |
|
Tisc_request_info = function (status_vector : PISC_STATUS; |
854 |
|
request_handle : PISC_REQ_HANDLE; |
857 |
|
isc_arg5 : PChar; |
858 |
|
isc_arg6 : Short; |
859 |
|
isc_arg7 : PChar): ISC_STATUS; |
860 |
< |
stdcall; |
860 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
861 |
|
|
862 |
|
Tisc_seek_blob = function (status_vector : PISC_STATUS; |
863 |
|
blob_handle : PISC_BLOB_HANDLE; |
864 |
|
isc_arg3 : Short; |
865 |
|
isc_arg4 : ISC_LONG; |
866 |
|
isc_arg5 : PISC_LONG): ISC_STATUS; |
867 |
< |
stdcall; |
867 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
868 |
|
|
869 |
|
Tisc_send = function (status_vector : PISC_STATUS; |
870 |
|
request_handle : PISC_REQ_HANDLE; |
872 |
|
isc_arg4 : Short; |
873 |
|
isc_arg5 : PVoid; |
874 |
|
isc_arg6 : Short): ISC_STATUS; |
875 |
< |
stdcall; |
875 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
876 |
|
|
877 |
|
Tisc_start_and_send = function (status_vector : PISC_STATUS; |
878 |
|
request_handle : PISC_REQ_HANDLE; |
881 |
|
isc_arg5 : Short; |
882 |
|
isc_arg6 : PVoid; |
883 |
|
isc_arg7 : Short): ISC_STATUS; |
884 |
< |
stdcall; |
884 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
885 |
|
|
886 |
|
Tisc_start_request = function (status_vector : PISC_STATUS; |
887 |
|
request_handle : PISC_REQ_HANDLE; |
888 |
|
tran_handle : PISC_TR_HANDLE; |
889 |
|
isc_arg4 : Short): ISC_STATUS; |
890 |
< |
stdcall; |
890 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
891 |
|
|
892 |
|
Tisc_unwind_request = function (status_vector : PISC_STATUS; |
893 |
|
tran_handle : PISC_TR_HANDLE; |
894 |
|
isc_arg3 : Short): ISC_STATUS; |
895 |
< |
stdcall; |
895 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
896 |
|
|
897 |
|
Tisc_wait_for_event = function (status_vector : PISC_STATUS; |
898 |
|
db_handle : PISC_DB_HANDLE; |
899 |
|
length : Short; |
900 |
|
event_buffer, |
901 |
|
result_buffer : PChar): ISC_STATUS; |
902 |
< |
stdcall; |
902 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
903 |
|
|
904 |
|
(*******************************) |
905 |
|
(** Other Sql functions **) |
907 |
|
{$IFDEF IB5_ONLY} |
908 |
|
Tisc_close = function (status_vector : PISC_STATUS; |
909 |
|
isc_arg2 : PChar): ISC_STATUS; |
910 |
< |
stdcall; |
910 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
911 |
|
|
912 |
|
Tisc_declare = function (status_vector : PISC_STATUS; |
913 |
|
isc_arg2, |
914 |
|
isc_arg3 : PChar): ISC_STATUS; |
915 |
< |
stdcall; |
915 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
916 |
|
|
917 |
|
Tisc_describe = function (status_vector : PISC_STATUS; |
918 |
|
isc_arg2 : PChar; |
919 |
|
isc_arg3 : PSQLDA): ISC_STATUS; |
920 |
< |
stdcall; |
920 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
921 |
|
|
922 |
|
Tisc_describe_bind = function (status_vector : PISC_STATUS; |
923 |
|
isc_arg2 : PChar; |
924 |
|
isc_arg3 : PSQLDA): ISC_STATUS; |
925 |
< |
stdcall; |
925 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
926 |
|
|
927 |
|
Tisc_execute = function (status_vector : PISC_STATUS; |
928 |
|
tran_handle : PISC_TR_HANDLE; |
929 |
|
isc_arg3 : PChar; |
930 |
|
isc_arg4 : PSQLDA): ISC_STATUS; |
931 |
< |
stdcall; |
931 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
932 |
|
|
933 |
|
Tisc_execute_immediate = function (status_vector : PISC_STATUS; |
934 |
|
db_handle : PISC_DB_HANDLE; |
935 |
|
tran_handle : PISC_TR_HANDLE; |
936 |
|
isc_arg4 : PShort; |
937 |
|
isc_arg5 : PChar): ISC_STATUS; |
938 |
< |
stdcall; |
938 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
939 |
|
|
940 |
|
Tisc_fetch = function (status_vector : PISC_STATUS; |
941 |
|
isc_arg2 : PChar; |
942 |
|
isc_arg3 : PSQLDA): ISC_STATUS; |
943 |
< |
stdcall; |
943 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
944 |
|
|
945 |
|
Tisc_open = function (status_vector : PISC_STATUS; |
946 |
|
tran_handle : PISC_TR_HANDLE; |
947 |
|
isc_arg3 : PChar; |
948 |
|
isc_arg4 : PSQLDA): ISC_STATUS; |
949 |
< |
stdcall; |
949 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
950 |
|
|
951 |
|
Tisc_prepare = function (status_vector : PISC_STATUS; |
952 |
|
db_handle : PISC_DB_HANDLE; |
955 |
|
isc_arg5 : PShort; |
956 |
|
isc_arg6 : PChar; |
957 |
|
isc_arg7 : PSQLDA): ISC_STATUS; |
958 |
< |
stdcall; |
958 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
959 |
|
{$ELSE} |
960 |
|
Tisc_close = function (status_vector : PISC_STATUS; |
961 |
|
isc_arg2 : PChar): ISC_STATUS; |
962 |
< |
stdcall; |
962 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
963 |
|
|
964 |
|
Tisc_declare = function (status_vector : PISC_STATUS; |
965 |
|
isc_arg2, |
966 |
|
isc_arg3 : PChar): ISC_STATUS; |
967 |
< |
stdcall; |
967 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
968 |
|
|
969 |
|
Tisc_describe = function (status_vector : PISC_STATUS; |
970 |
|
isc_arg2 : PChar; |
971 |
|
isc_arg3 : PXSQLDA): ISC_STATUS; |
972 |
< |
stdcall; |
972 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
973 |
|
|
974 |
|
Tisc_describe_bind = function (status_vector : PISC_STATUS; |
975 |
|
isc_arg2 : PChar; |
976 |
|
isc_arg3 : PXSQLDA): ISC_STATUS; |
977 |
< |
stdcall; |
977 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
978 |
|
|
979 |
|
Tisc_execute = function (status_vector : PISC_STATUS; |
980 |
|
tran_handle : PISC_TR_HANDLE; |
981 |
|
isc_arg3 : PChar; |
982 |
|
isc_arg4 : PXSQLDA): ISC_STATUS; |
983 |
< |
stdcall; |
983 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
984 |
|
|
985 |
|
Tisc_execute_immediate = function (status_vector : PISC_STATUS; |
986 |
|
db_handle : PISC_DB_HANDLE; |
987 |
|
tran_handle : PISC_TR_HANDLE; |
988 |
|
isc_arg4 : PShort; |
989 |
|
isc_arg5 : PChar): ISC_STATUS; |
990 |
< |
stdcall; |
990 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
991 |
|
|
992 |
|
Tisc_fetch = function (status_vector : PISC_STATUS; |
993 |
|
isc_arg2 : PChar; |
994 |
|
isc_arg3 : PXSQLDA): ISC_STATUS; |
995 |
< |
stdcall; |
995 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
996 |
|
|
997 |
|
Tisc_open = function (status_vector : PISC_STATUS; |
998 |
|
tran_handle : PISC_TR_HANDLE; |
999 |
|
isc_arg3 : PChar; |
1000 |
|
isc_arg4 : PXSQLDA): ISC_STATUS; |
1001 |
< |
stdcall; |
1001 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1002 |
|
|
1003 |
|
Tisc_prepare = function (status_vector : PISC_STATUS; |
1004 |
|
db_handle : PISC_DB_HANDLE; |
1007 |
|
isc_arg5 : PShort; |
1008 |
|
isc_arg6 : PChar; |
1009 |
|
isc_arg7 : PXSQLDA): ISC_STATUS; |
1010 |
< |
stdcall; |
1010 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1011 |
|
{$ENDIF} |
1012 |
|
|
1013 |
|
(***************************************) |
1022 |
|
isc_arg6 : UShort; |
1023 |
|
isc_arg7 : UShort; |
1024 |
|
isc_arg8 : PChar): ISC_STATUS; |
1025 |
< |
stdcall; |
1025 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1026 |
|
|
1027 |
|
Tisc_dsql_execute2_m = function (status_vector : PISC_STATUS; |
1028 |
|
tran_handle : PISC_TR_HANDLE; |
1037 |
|
isc_arg11 : UShort; |
1038 |
|
isc_arg12 : UShort; |
1039 |
|
isc_arg13 : PChar): ISC_STATUS; |
1040 |
< |
stdcall; |
1040 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1041 |
|
|
1042 |
|
Tisc_dsql_execute_immediate_m = function (status_vector : PISC_STATUS; |
1043 |
|
db_handle : PISC_DB_HANDLE; |
1050 |
|
isc_arg9 : UShort; |
1051 |
|
isc_arg10 : UShort; |
1052 |
|
isc_arg11 : PChar): ISC_STATUS; |
1053 |
< |
stdcall; |
1053 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1054 |
|
|
1055 |
|
Tisc_dsql_exec_immed3_m = function (status_vector : PISC_STATUS; |
1056 |
|
db_handle : PISC_DB_HANDLE; |
1068 |
|
isc_arg14 : UShort; |
1069 |
|
isc_arg15 : UShort; |
1070 |
|
isc_arg16 : PChar): ISC_STATUS; |
1071 |
< |
stdcall; |
1071 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1072 |
|
|
1073 |
|
Tisc_dsql_fetch_m = function (status_vector : PISC_STATUS; |
1074 |
|
statement_handle : PISC_STMT_HANDLE; |
1077 |
|
isc_arg5 : UShort; |
1078 |
|
isc_arg6 : UShort; |
1079 |
|
isc_arg7 : PChar): ISC_STATUS; |
1080 |
< |
stdcall; |
1080 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1081 |
|
|
1082 |
|
(*$ifdef SCROLLABLE_CURSORS*) |
1083 |
|
Tisc_dsql_fetch2_m = function (status_vector : PISC_STATUS; |
1089 |
|
isc_arg7 : PChar; |
1090 |
|
isc_arg8 : UShort; |
1091 |
|
isc_arg9 : Long): ISC_STATUS; |
1092 |
< |
stdcall; |
1092 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1093 |
|
(*$endif*) |
1094 |
|
|
1095 |
|
Tisc_dsql_insert_m = function (status_vector : PISC_STATUS; |
1099 |
|
isc_arg5 : UShort; |
1100 |
|
isc_arg6 : UShort; |
1101 |
|
isc_arg7 : PChar): ISC_STATUS; |
1102 |
< |
stdcall; |
1102 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1103 |
|
|
1104 |
|
Tisc_dsql_prepare_m = function (status_vector : PISC_STATUS; |
1105 |
|
tran_handle : PISC_TR_HANDLE; |
1111 |
|
isc_arg8 : PChar; |
1112 |
|
isc_arg9 : UShort; |
1113 |
|
isc_arg10 : PChar): ISC_STATUS; |
1114 |
< |
stdcall; |
1114 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1115 |
|
|
1116 |
|
Tisc_dsql_release = function (status_vector : PISC_STATUS; |
1117 |
|
isc_arg2 : PChar): ISC_STATUS; |
1118 |
< |
stdcall; |
1118 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1119 |
|
|
1120 |
|
Tisc_embed_dsql_close = function(status_vector : PISC_STATUS; |
1121 |
|
isc_arg2 : PChar): ISC_STATUS; |
1122 |
< |
stdcall; |
1122 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1123 |
|
|
1124 |
|
Tisc_embed_dsql_declare = function (status_vector : PISC_STATUS; |
1125 |
|
isc_arg2 : PChar; |
1126 |
|
isc_arg3 : PChar): ISC_STATUS; |
1127 |
< |
stdcall; |
1127 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1128 |
|
|
1129 |
|
Tisc_embed_dsql_describe = function (status_vector : PISC_STATUS; |
1130 |
|
isc_arg2 : PChar; |
1131 |
|
isc_arg3 : UShort; |
1132 |
|
isc_arg4 : PXSQLDA): ISC_STATUS; |
1133 |
< |
stdcall; |
1133 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1134 |
|
|
1135 |
|
Tisc_embed_dsql_describe_bind = function (status_vector : PISC_STATUS; |
1136 |
|
isc_arg2 : PChar; |
1137 |
|
isc_arg3 : UShort; |
1138 |
|
isc_arg4 : PXSQLDA): ISC_STATUS; |
1139 |
< |
stdcall; |
1139 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1140 |
|
|
1141 |
|
Tisc_embed_dsql_execute = function (status_vector : PISC_STATUS; |
1142 |
|
tran_handle : PISC_TR_HANDLE; |
1143 |
|
isc_arg3 : PChar; |
1144 |
|
isc_arg4 : UShort; |
1145 |
|
isc_arg5 : PXSQLDA): ISC_STATUS; |
1146 |
< |
stdcall; |
1146 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1147 |
|
|
1148 |
|
Tisc_embed_dsql_execute2 = function (status_vector : PISC_STATUS; |
1149 |
|
tran_handle : PISC_TR_HANDLE; |
1151 |
|
isc_arg4 : UShort; |
1152 |
|
isc_arg5 : PXSQLDA; |
1153 |
|
isc_arg6 : PXSQLDA): ISC_STATUS; |
1154 |
< |
stdcall; |
1154 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1155 |
|
|
1156 |
|
Tisc_embed_dsql_execute_immed = function (status_vector : PISC_STATUS; |
1157 |
|
db_handle : PISC_DB_HANDLE; |
1160 |
|
isc_arg5 : PChar; |
1161 |
|
isc_arg6 : UShort; |
1162 |
|
isc_arg7 : PXSQLDA): ISC_STATUS; |
1163 |
< |
stdcall; |
1163 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1164 |
|
|
1165 |
|
Tisc_embed_dsql_fetch = function(status_vector : PISC_STATUS; |
1166 |
|
isc_arg2 : PChar; |
1167 |
|
isc_arg3 : UShort; |
1168 |
|
isc_arg4 : PXSQLDA): ISC_STATUS; |
1169 |
< |
stdcall; |
1169 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1170 |
|
|
1171 |
|
(*$ifdef SCROLLABLE_CURSORS*) |
1172 |
|
Tisc_embed_dsql_fetch2 = function (status_vector : PISC_STATUS; |
1175 |
|
isc_arg4 : PXSQLDA; |
1176 |
|
isc_arg5 : UShort; |
1177 |
|
isc_arg6 : Long): ISC_STATUS; |
1178 |
< |
stdcall; |
1178 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1179 |
|
(*$endif*) |
1180 |
|
|
1181 |
|
Tisc_embed_dsql_open = function (status_vector : PISC_STATUS; |
1183 |
|
isc_arg3 : PChar; |
1184 |
|
isc_arg4 : UShort; |
1185 |
|
isc_arg5 : PXSQLDA): ISC_STATUS; |
1186 |
< |
stdcall; |
1186 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1187 |
|
|
1188 |
|
Tisc_embed_dsql_open2 = function (status_vector : PISC_STATUS; |
1189 |
|
tran_handle : PISC_TR_HANDLE; |
1191 |
|
isc_arg4 : UShort; |
1192 |
|
isc_arg5 : PXSQLDA; |
1193 |
|
isc_arg6 : PXSQLDA): ISC_STATUS; |
1194 |
< |
stdcall; |
1194 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1195 |
|
|
1196 |
|
Tisc_embed_dsql_insert = function (status_vector : PISC_STATUS; |
1197 |
|
isc_arg2 : PChar; |
1198 |
|
isc_arg3 : UShort; |
1199 |
|
isc_arg4 : PXSQLDA): ISC_STATUS; |
1200 |
< |
stdcall; |
1200 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1201 |
|
|
1202 |
|
Tisc_embed_dsql_prepare = function (status_vector : PISC_STATUS; |
1203 |
|
db_handle : PISC_DB_HANDLE; |
1207 |
|
isc_arg6 : PChar; |
1208 |
|
isc_arg7 : UShort; |
1209 |
|
isc_arg8 : PXSQLDA): ISC_STATUS; |
1210 |
< |
stdcall; |
1210 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1211 |
|
|
1212 |
|
Tisc_embed_dsql_release = function (status_vector : PISC_STATUS; |
1213 |
|
isc_arg2 : PChar): ISC_STATUS; |
1214 |
< |
stdcall; |
1214 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1215 |
|
|
1216 |
|
(********************************) |
1217 |
|
(** Other Blob functions **) |
1220 |
|
TBLOB_open = function (blob_handle : TISC_BLOB_HANDLE; |
1221 |
|
isc_arg2 : PChar; |
1222 |
|
isc_arg3 : int): PBSTREAM; |
1223 |
< |
stdcall; |
1223 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1224 |
|
|
1225 |
|
TBLOB_put = function (isc_arg1 : char; |
1226 |
|
isc_arg2 : PBSTREAM): Int; |
1227 |
< |
stdcall; |
1227 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1228 |
|
|
1229 |
|
TBLOB_close = function (isc_arg1 : PBSTREAM): Int; |
1230 |
< |
stdcall; |
1230 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1231 |
|
|
1232 |
|
TBLOB_get = function (isc_arg1 : PBSTREAM): Int; |
1233 |
< |
stdcall; |
1233 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1234 |
|
|
1235 |
|
TBLOB_display = function (isc_arg1 : PISC_QUAD; |
1236 |
|
db_handle : TISC_DB_HANDLE; |
1237 |
|
tran_handle : TISC_TR_HANDLE; |
1238 |
|
isc_arg4 : PChar): Int; |
1239 |
< |
stdcall; |
1239 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1240 |
|
|
1241 |
|
TBLOB_dump = function (isc_arg1 : PISC_QUAD; |
1242 |
|
db_handle : TISC_DB_HANDLE; |
1243 |
|
tran_handle : TISC_TR_HANDLE; |
1244 |
|
isc_arg4 : PChar): Int; |
1245 |
< |
stdcall; |
1245 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1246 |
|
|
1247 |
|
TBLOB_edit = function (isc_arg1 : PISC_QUAD; |
1248 |
|
db_handle : TISC_DB_HANDLE; |
1249 |
|
tran_handle : TISC_TR_HANDLE; |
1250 |
|
isc_arg4 : PChar): Int; |
1251 |
< |
stdcall; |
1251 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1252 |
|
|
1253 |
|
TBLOB_load = function (isc_arg1 : PISC_QUAD; |
1254 |
|
db_handle : TISC_DB_HANDLE; |
1255 |
|
tran_handle : TISC_TR_HANDLE; |
1256 |
|
isc_arg4 : PChar): Int; |
1257 |
< |
stdcall; |
1257 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1258 |
|
|
1259 |
|
TBLOB_text_dump = function (isc_arg1 : PISC_QUAD; |
1260 |
|
db_handle : TISC_DB_HANDLE; |
1261 |
|
tran_handle : TISC_TR_HANDLE; |
1262 |
|
isc_arg4 : PChar): Int; |
1263 |
< |
stdcall; |
1263 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1264 |
|
|
1265 |
|
TBLOB_text_load = function (isc_arg1 : PISC_QUAD; |
1266 |
|
db_handle : TISC_DB_HANDLE; |
1267 |
|
tran_handle : TISC_TR_HANDLE; |
1268 |
|
isc_arg4 : PChar): Int; |
1269 |
< |
stdcall; |
1269 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1270 |
|
|
1271 |
|
TBopen = function (isc_arg1 : PISC_QUAD; |
1272 |
|
db_handle : TISC_DB_HANDLE; |
1273 |
|
tran_handle : TISC_TR_HANDLE; |
1274 |
|
isc_arg4 : PChar): Int; |
1275 |
< |
stdcall; |
1275 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1276 |
|
|
1277 |
|
TBopen2 = function (isc_arg1 : PISC_QUAD; |
1278 |
|
db_handle : TISC_DB_HANDLE; |
1279 |
|
tran_handle : TISC_TR_HANDLE; |
1280 |
|
isc_arg4 : PChar; |
1281 |
|
isc_arg5 : UShort): PBSTREAM; |
1282 |
< |
stdcall; |
1282 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1283 |
|
|
1284 |
|
(********************************) |
1285 |
|
(** Other Misc functions **) |
1289 |
|
isc_arg2 : UShort; |
1290 |
|
isc_arg3 : PChar; |
1291 |
|
isc_arg4 : UShort): ISC_LONG; |
1292 |
< |
stdcall; |
1292 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1293 |
|
|
1294 |
|
Tisc_print_blr = function (isc_arg1 : PChar; |
1295 |
|
isc_arg2 : TISC_CALLBACK; |
1296 |
|
isc_arg3 : PVoid; |
1297 |
|
isc_arg4 : Short): ISC_STATUS; |
1298 |
< |
stdcall; |
1298 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1299 |
|
|
1300 |
|
Tisc_set_debug = procedure (isc_arg1 : Int); |
1301 |
< |
stdcall; |
1301 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1302 |
|
|
1303 |
|
Tisc_qtoq = procedure (isc_arg1 : PISC_QUAD; |
1304 |
|
isc_arg2 : PISC_QUAD); |
1305 |
< |
stdcall; |
1305 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1306 |
|
|
1307 |
|
Tisc_vtof = procedure (isc_arg1 : PChar; |
1308 |
|
isc_arg2 : PChar; |
1309 |
|
isc_arg3 : UShort); |
1310 |
< |
stdcall; |
1310 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1311 |
|
|
1312 |
|
Tisc_vtov = procedure (isc_arg1 : PChar; |
1313 |
|
isc_arg2 : PChar; |
1314 |
|
isc_arg3 : Short); |
1315 |
< |
stdcall; |
1315 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1316 |
|
|
1317 |
|
Tisc_version = function (db_handle : PISC_DB_HANDLE; |
1318 |
|
isc_arg2 : TISC_CALLBACK; |
1319 |
|
isc_arg3 : PVoid): Int; |
1320 |
< |
stdcall; |
1320 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1321 |
|
|
1322 |
|
Tisc_reset_fpe = function (isc_arg1 : UShort): ISC_LONG; |
1323 |
< |
stdcall; |
1323 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1324 |
|
|
1325 |
|
(*******************************************) |
1326 |
|
(** Service manager functions **) |
1332 |
|
service_handle : PISC_SVC_HANDLE; |
1333 |
|
isc_arg5 : UShort; |
1334 |
|
isc_arg6 : PChar): ISC_STATUS; |
1335 |
< |
stdcall; |
1335 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1336 |
|
|
1337 |
|
Tisc_service_detach = function (status_vector : PISC_STATUS; |
1338 |
|
service_handle : PISC_SVC_HANDLE): ISC_STATUS; |
1339 |
< |
stdcall; |
1339 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1340 |
|
|
1341 |
|
Tisc_service_query = function (status_vector : PISC_STATUS; |
1342 |
|
service_handle : PISC_SVC_HANDLE; |
1347 |
|
isc_arg7 : PChar; |
1348 |
|
isc_arg8 : UShort; |
1349 |
|
isc_arg9 : PChar): ISC_STATUS; |
1350 |
< |
stdcall; |
1350 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1351 |
|
|
1352 |
|
Tisc_service_start = function (status_vector : PISC_STATUS; |
1353 |
|
service_handle : PISC_SVC_HANDLE; |
1354 |
|
recv_handle : PISC_SVC_HANDLE; |
1355 |
|
isc_arg4 : UShort; |
1356 |
|
isc_arg5 : PChar): ISC_STATUS; |
1357 |
< |
stdcall; |
1357 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1358 |
|
|
1359 |
|
(*********************************) |
1360 |
|
(** Forms functions **) |
1365 |
|
request_handle : PISC_REQ_HANDLE; |
1366 |
|
isc_arg4 : PShort; |
1367 |
|
isc_arg5 : PChar): ISC_STATUS; |
1368 |
< |
stdcall; |
1368 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1369 |
|
|
1370 |
|
Tisc_compile_menu = function (status_vector : PISC_STATUS; |
1371 |
|
form_handle : PISC_FORM_HANDLE; |
1372 |
|
request_handle : PISC_REQ_HANDLE; |
1373 |
|
isc_arg4 : PShort; |
1374 |
|
isc_arg5 : PChar): ISC_STATUS; |
1375 |
< |
stdcall; |
1375 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1376 |
|
|
1377 |
|
Tisc_compile_sub_map = function (status_vector : PISC_STATUS; |
1378 |
|
win_handle : PISC_WIN_HANDLE; |
1379 |
|
request_handle : PISC_REQ_HANDLE; |
1380 |
|
isc_arg4 : PShort; |
1381 |
|
isc_arg5 : PChar): ISC_STATUS; |
1382 |
< |
stdcall; |
1382 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1383 |
|
|
1384 |
|
Tisc_create_window = function (status_vector : PISC_STATUS; |
1385 |
|
win_handle : PISC_WIN_HANDLE; |
1387 |
|
isc_arg4 : PChar; |
1388 |
|
isc_arg5 : PShort; |
1389 |
|
isc_arg6 : PShort): ISC_STATUS; |
1390 |
< |
stdcall; |
1390 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1391 |
|
|
1392 |
|
Tisc_delete_window = function (status_vector : PISC_STATUS; |
1393 |
|
win_handle : PISC_WIN_HANDLE): ISC_STATUS; |
1394 |
< |
stdcall; |
1394 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1395 |
|
|
1396 |
|
Tisc_drive_form = function (status_vector : PISC_STATUS; |
1397 |
|
db_handle : PISC_DB_HANDLE; |
1400 |
|
request_handle : PISC_REQ_HANDLE; |
1401 |
|
isc_arg6 : PUChar; |
1402 |
|
isc_arg7 : PUChar): ISC_STATUS; |
1403 |
< |
stdcall; |
1403 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1404 |
|
|
1405 |
|
Tisc_drive_menu = function (status_vector : PISC_STATUS; |
1406 |
|
win_handle : PISC_WIN_HANDLE; |
1413 |
|
isc_arg9 : PShort; |
1414 |
|
isc_arg10 : PChar; |
1415 |
|
isc_arg11 : PISC_LONG): ISC_STATUS; |
1416 |
< |
stdcall; |
1416 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1417 |
|
|
1418 |
|
Tisc_form_delete = function (status_vector : PISC_STATUS; |
1419 |
|
form_handle : PISC_FORM_HANDLE): ISC_STATUS; |
1420 |
< |
stdcall; |
1420 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1421 |
|
|
1422 |
|
Tisc_form_fetch = function (status_vector : PISC_STATUS; |
1423 |
|
db_handle : PISC_DB_HANDLE; |
1424 |
|
tran_handle : PISC_TR_HANDLE; |
1425 |
|
request_handle : PISC_REQ_HANDLE; |
1426 |
|
isc_arg5 : PUChar): ISC_STATUS; |
1427 |
< |
stdcall; |
1427 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1428 |
|
|
1429 |
|
Tisc_form_insert = function (status_vector : PISC_STATUS; |
1430 |
|
db_handle : PISC_DB_HANDLE; |
1431 |
|
tran_handle : PISC_TR_HANDLE; |
1432 |
|
request_handle : PISC_REQ_HANDLE; |
1433 |
|
isc_arg5 : PUChar): ISC_STATUS; |
1434 |
< |
stdcall; |
1434 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1435 |
|
|
1436 |
|
Tisc_get_entree = function (status_vector : PISC_STATUS; |
1437 |
|
request_handle : PISC_REQ_HANDLE; |
1439 |
|
isc_arg4 : PChar; |
1440 |
|
isc_arg5 : PISC_LONG; |
1441 |
|
isc_arg6 : PShort): ISC_STATUS; |
1442 |
< |
stdcall; |
1442 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1443 |
|
|
1444 |
|
Tisc_initialize_menu = function (status_vector : PISC_STATUS; |
1445 |
|
request_handle : PISC_REQ_HANDLE): ISC_STATUS; |
1446 |
< |
stdcall; |
1446 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1447 |
|
|
1448 |
|
Tisc_menu = function (status_vector : PISC_STATUS; |
1449 |
|
win_handle : PISC_WIN_HANDLE; |
1450 |
|
request_handle : PISC_REQ_HANDLE; |
1451 |
|
isc_arg4 : PShort; |
1452 |
|
isc_arg5 : PChar): ISC_STATUS; |
1453 |
< |
stdcall; |
1453 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1454 |
|
|
1455 |
|
Tisc_load_form = function (status_vector : PISC_STATUS; |
1456 |
|
db_handle : PISC_DB_HANDLE; |
1458 |
|
form_handle : PISC_FORM_HANDLE; |
1459 |
|
isc_arg5 : PShort; |
1460 |
|
isc_arg6 : PChar): ISC_STATUS; |
1461 |
< |
stdcall; |
1461 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1462 |
|
|
1463 |
|
Tisc_pop_window = function (status_vector : PISC_STATUS; |
1464 |
|
win_handle : PISC_WIN_HANDLE): ISC_STATUS; |
1465 |
< |
stdcall; |
1465 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1466 |
|
|
1467 |
|
Tisc_put_entree = function (status_vector : PISC_STATUS; |
1468 |
|
request_handle : PISC_REQ_HANDLE; |
1469 |
|
isc_arg3 : PShort; |
1470 |
|
isc_arg4 : PChar; |
1471 |
|
isc_arg5 : PISC_LONG): ISC_STATUS; |
1472 |
< |
stdcall; |
1472 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1473 |
|
|
1474 |
|
Tisc_reset_form = function (status_vector : PISC_STATUS; |
1475 |
|
request_handle : PISC_REQ_HANDLE): ISC_STATUS; |
1476 |
< |
stdcall; |
1476 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1477 |
|
|
1478 |
|
Tisc_suspend_window = function (status_vector : PISC_STATUS; |
1479 |
|
win_handle : PISC_WIN_HANDLE): ISC_STATUS; |
1480 |
< |
stdcall; |
1480 |
> |
{$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} |
1481 |
|
|
1482 |
|
(** Constants!!! **) |
1483 |
|
(*****************************************************) |