ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBHeader.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBHeader.pas (file contents):
Revision 1 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

# Line 28 | Line 28
28  
29   unit IBHeader;
30  
31 + {$Mode Delphi}
32 +
33   interface
34  
35   uses
# Line 39 | Line 41 | const
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 *)
# Line 60 | Line 68 | type
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;
# Line 272 | Line 280 | Tisc_attach_database = function (status_
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;
# Line 288 | Line 296 | Tisc_array_get_slice = function (status_
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;
# Line 296 | Line 304 | Tisc_array_lookup_bounds = function (sta
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;
# Line 304 | Line 312 | Tisc_array_lookup_desc = function (statu
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;
# Line 313 | Line 321 | Tisc_array_set_desc = function  (status_
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;
# Line 322 | Line 330 | Tisc_array_put_slice = function (status_
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,
# Line 335 | Line 343 | Tisc_blob_gen_bpb = function    (status_
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;
# Line 343 | Line 351 | Tisc_blob_info = function       (status_
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;
# Line 352 | Line 360 | Tisc_blob_lookup_desc = function (status
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,
# Line 361 | Line 369 | Tisc_blob_set_desc = function   (status_
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;
# Line 398 | Line 406 | Tisc_create_blob2 = function    (status_
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;
# Line 407 | Line 415 | Tisc_create_database = function (status_
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;
# Line 415 | Line 423 | Tisc_database_info = function   (status_
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;
# Line 471 | Line 479 | Tisc_dsql_exec_immed2 = function (status
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;
# Line 486 | Line 494 | Tisc_dsql_execute2 = function   (status_
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;
# Line 495 | Line 503 | Tisc_dsql_execute_immediate = function (
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;
# Line 510 | Line 518 | Tisc_dsql_fetch2 = function     (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;
# Line 534 | Line 542 | Tisc_dsql_prepare = function    (status_
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;
# Line 548 | Line 556 | Tisc_dsql_sql_info = function   (status_
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;
# Line 576 | Line 584 | Tisc_event_counts = procedure   (status_
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;
# Line 589 | Line 597 | Tisc_modify_dpb = function      (dpb
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;
# Line 612 | Line 620 | Tisc_get_slice = function       (status_
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;
# Line 632 | Line 640 | Tisc_open_blob2 = function      (status_
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;
# Line 663 | Line 671 | Tisc_put_slice = function       (status_
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;
# Line 672 | Line 680 | Tisc_que_events = function      (status_
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;
# Line 697 | Line 705 | Tisc_start_transaction = function (statu
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;
# Line 711 | Line 719 | Tisc_transaction_info = function (status
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;
# Line 722 | Line 730 | Tisc_transact_request = function (status
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 **)
# Line 773 | Line 781 | type
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          **)
# Line 792 | Line 800 | Tisc_compile_request = function (status_
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;
# Line 819 | Line 827 | Tisc_receive = function         (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;
# Line 829 | Line 837 | Tisc_receive2 = function        (status_
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;
# Line 849 | Line 857 | Tisc_request_info = function    (status_
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;
# Line 864 | Line 872 | Tisc_send = function            (status_
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;
# Line 873 | Line 881 | Tisc_start_and_send = function  (status_
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       **)
# Line 899 | Line 907 | Tisc_wait_for_event = function  (status_
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;
# Line 947 | Line 955 | Tisc_prepare = function         (status_
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;
# Line 999 | Line 1007 | Tisc_prepare = function         (status_
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   (***************************************)
# Line 1014 | Line 1022 | Tisc_dsql_execute_m = function  (status_
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;
# Line 1029 | Line 1037 | Tisc_dsql_execute2_m = function (status_
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;
# Line 1042 | Line 1050 | Tisc_dsql_execute_immediate_m = function
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;
# Line 1060 | Line 1068 | Tisc_dsql_exec_immed3_m = function  (sta
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;
# Line 1069 | Line 1077 | Tisc_dsql_fetch_m = function    (status_
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;
# Line 1081 | Line 1089 | Tisc_dsql_fetch2_m = function   (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;
# Line 1091 | Line 1099 | Tisc_dsql_insert_m = function   (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;
# Line 1103 | Line 1111 | Tisc_dsql_prepare_m = function  (status_
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;
# Line 1143 | Line 1151 | Tisc_embed_dsql_execute2 = function (sta
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;
# Line 1152 | Line 1160 | Tisc_embed_dsql_execute_immed = function
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;
# Line 1167 | Line 1175 | Tisc_embed_dsql_fetch2 = function  (stat
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;
# Line 1175 | Line 1183 | Tisc_embed_dsql_open = function (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;
# Line 1183 | Line 1191 | Tisc_embed_dsql_open2 = function (status
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;
# Line 1199 | Line 1207 | Tisc_embed_dsql_prepare = function  (sta
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       **)
# Line 1212 | Line 1220 | Tisc_embed_dsql_release = function  (sta
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       **)
# Line 1281 | Line 1289 | Tisc_ftof = function            (isc_arg
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             **)
# Line 1324 | Line 1332 | Tisc_service_attach = function  (status_
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;
# Line 1339 | Line 1347 | Tisc_service_query = function   (status_
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             **)
# Line 1357 | Line 1365 | Tisc_compile_map = function     (status_
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;
# Line 1379 | Line 1387 | Tisc_create_window = function   (status_
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;
# Line 1392 | Line 1400 | Tisc_drive_form = function      (status_
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;
# Line 1405 | Line 1413 | Tisc_drive_menu = function      (status_
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;
# Line 1431 | Line 1439 | Tisc_get_entree = function      (status_
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;
# Line 1450 | Line 1458 | Tisc_load_form = function       (status_
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   (*****************************************************)

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines