--- ibx/trunk/runtime/IBHeader.pas 2000/07/31 16:43:00 1 +++ ibx/trunk/runtime/IBHeader.pas 2011/02/18 16:26:16 5 @@ -28,6 +28,8 @@ unit IBHeader; +{$Mode Delphi} + interface uses @@ -39,7 +41,13 @@ const ISC_FALSE = 0; DSQL_close = 1; DSQL_drop = 2; - IBASE_DLL = 'gds32.dll'; {do not localize} +{$IFDEF LINUX} + FIREBIRD_SO = 'libfbclient.so'; +{$ELSE} + IBASE_DLL = 'gds32.dll'; + FIREBIRD_CLIENT = 'fbclient.dll'; {do not localize} + FIREBIRD_EMBEDDED = 'fbembedded.dll'; +{$ENDIF} const SQLDA_VERSION1 = 1; (* pre V6.0 SQLDA *) @@ -60,23 +68,23 @@ type (**********************************) (** InterBase Handle Definitions **) (**********************************) - TISC_ATT_HANDLE = PVoid; + TISC_ATT_HANDLE = FB_API_HANDLE; PISC_ATT_HANDLE = ^TISC_ATT_HANDLE; - TISC_BLOB_HANDLE = PVoid; + TISC_BLOB_HANDLE = FB_API_HANDLE; PISC_BLOB_HANDLE = ^TISC_BLOB_HANDLE; - TISC_DB_HANDLE = PVoid; + TISC_DB_HANDLE = FB_API_HANDLE; PISC_DB_HANDLE = ^TISC_DB_HANDLE; - TISC_FORM_HANDLE = PVoid; + TISC_FORM_HANDLE = FB_API_HANDLE; PISC_FORM_HANDLE = ^TISC_FORM_HANDLE; - TISC_REQ_HANDLE = PVoid; + TISC_REQ_HANDLE = FB_API_HANDLE; PISC_REQ_HANDLE = ^TISC_REQ_HANDLE; - TISC_STMT_HANDLE = PVoid; + TISC_STMT_HANDLE = FB_API_HANDLE; PISC_STMT_HANDLE = ^TISC_STMT_HANDLE; - TISC_SVC_HANDLE = PVoid; + TISC_SVC_HANDLE = FB_API_HANDLE; PISC_SVC_HANDLE = ^TISC_SVC_HANDLE; - TISC_TR_HANDLE = PVoid; + TISC_TR_HANDLE = FB_API_HANDLE; PISC_TR_HANDLE = ^TISC_TR_HANDLE; - TISC_WIN_HANDLE = PVoid; + TISC_WIN_HANDLE = FB_API_HANDLE; PISC_WIN_HANDLE = ^TISC_WIN_HANDLE; TISC_CALLBACK = procedure; ISC_SVC_HANDLE = ISC_LONG; @@ -272,14 +280,14 @@ Tisc_attach_database = function (status_ db_handle : PISC_DB_HANDLE; parm_buffer_length : Short; parm_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_array_gen_sdl = function (status_vector : PISC_STATUS; isc_array_desc : PISC_ARRAY_DESC; isc_arg3 : PShort; isc_arg4 : PChar; isc_arg5 : PShort): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_array_get_slice = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -288,7 +296,7 @@ Tisc_array_get_slice = function (status_ descriptor : PISC_ARRAY_DESC; dest_array : PVoid; slice_length : ISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_array_lookup_bounds = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -296,7 +304,7 @@ Tisc_array_lookup_bounds = function (sta table_name, column_name : PChar; descriptor : PISC_ARRAY_DESC): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_array_lookup_desc = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -304,7 +312,7 @@ Tisc_array_lookup_desc = function (statu table_name, column_name : PChar; descriptor : PISC_ARRAY_DESC): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_array_set_desc = function (status_vector : PISC_STATUS; table_name : PChar; @@ -313,7 +321,7 @@ Tisc_array_set_desc = function (status_ sql_length, sql_dimensions : PShort; descriptor : PISC_ARRAY_DESC): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_array_put_slice = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -322,12 +330,12 @@ Tisc_array_put_slice = function (status_ descriptor : PISC_ARRAY_DESC; source_array : PVoid; slice_length : PISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_blob_default_desc = procedure (descriptor : PISC_BLOB_DESC; table_name : PUChar; column_name : PUChar); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_blob_gen_bpb = function (status_vector : PISC_STATUS; to_descriptor, @@ -335,7 +343,7 @@ Tisc_blob_gen_bpb = function (status_ bpb_buffer_length : UShort; bpb_buffer : PUChar; bpb_length : PUShort): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_blob_info = function (status_vector : PISC_STATUS; blob_handle : PISC_BLOB_HANDLE; @@ -343,7 +351,7 @@ Tisc_blob_info = function (status_ item_list_buffer : PChar; result_buffer_length : Short; result_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_blob_lookup_desc = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -352,7 +360,7 @@ Tisc_blob_lookup_desc = function (status column_name : PChar; descriptor : PISC_BLOB_DESC; global : PUChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_blob_set_desc = function (status_vector : PISC_STATUS; table_name, @@ -361,35 +369,35 @@ Tisc_blob_set_desc = function (status_ charset, segment_size : Short; descriptor : PISC_BLOB_DESC): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_cancel_blob = function (status_vector : PISC_STATUS; blob_handle : PISC_BLOB_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_cancel_events = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; event_id : PISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_close_blob = function (status_vector : PISC_STATUS; blob_handle : PISC_BLOB_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_commit_retaining = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_commit_transaction = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_create_blob = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; blob_handle : PISC_BLOB_HANDLE; blob_id : PISC_QUAD): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_create_blob2 = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -398,7 +406,7 @@ Tisc_create_blob2 = function (status_ blob_id : PISC_QUAD; bpb_length : Short; bpb_address : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_create_database = function (status_vector : PISC_STATUS; isc_arg2 : Short; @@ -407,7 +415,7 @@ Tisc_create_database = function (status_ isc_arg5 : Short; isc_arg6 : PChar; isc_arg7 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_database_info = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -415,53 +423,53 @@ Tisc_database_info = function (status_ item_list_buffer : PChar; result_buffer_length : Short; result_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_decode_date = procedure (ib_date: PISC_QUAD; tm_date: PCTimeStructure); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_decode_sql_date = procedure (ib_date: PISC_DATE; tm_date: PCTimeStructure); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_decode_sql_time = procedure (ib_time: PISC_TIME; tm_date: PCTimeStructure); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_decode_timestamp = procedure (ib_timestamp: PISC_TIMESTAMP; tm_date: PCTimeStructure); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_detach_database = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_drop_database = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_allocate_statement = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; stmt_handle : PISC_STMT_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_alloc_statement2 = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; stmt_handle : PISC_STMT_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_describe = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; dialect : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_describe_bind = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; dialect : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_exec_immed2 = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -471,14 +479,14 @@ Tisc_dsql_exec_immed2 = function (status dialect : UShort; in_xsqlda, out_xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_execute = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; stmt_handle : PISC_STMT_HANDLE; dialect : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_execute2 = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -486,7 +494,7 @@ Tisc_dsql_execute2 = function (status_ dialect : UShort; in_xsqlda, out_xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_execute_immediate = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -495,13 +503,13 @@ Tisc_dsql_execute_immediate = function ( statement : PChar; dialect : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_fetch = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; dialect : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*$ifdef SCROLLABLE_CURSORS*) Tisc_dsql_fetch2 = function (status_vector : PISC_STATUS; @@ -510,22 +518,22 @@ Tisc_dsql_fetch2 = function (status_ xsqlda : PXSQLDA; isc_arg5 : UShort; isc_arg6 : Long): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*$endif*) Tisc_dsql_finish = function (db_handle : PISC_DB_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_free_statement = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; options : UShort): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_insert = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; arg3 : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_prepare = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -534,13 +542,13 @@ Tisc_dsql_prepare = function (status_ statement : PChar; dialect : UShort; xsqlda : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_set_cursor_name = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; cursor_name : PChar; _type : UShort): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_sql_info = function (status_vector : PISC_STATUS; stmt_handle : PISC_STMT_HANDLE; @@ -548,23 +556,23 @@ Tisc_dsql_sql_info = function (status_ items : PChar; buffer_length : Short; buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_encode_date = procedure (tm_date : PCTimeStructure; ib_date : PISC_QUAD); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_encode_sql_date = procedure (tm_date : PCTimeStructure; ib_date : PISC_DATE); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_encode_sql_time = procedure (tm_date : PCTimeStructure; ib_time : PISC_TIME); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_encode_timestamp = procedure (tm_date : PCTimeStructure; ib_timestamp : PISC_TIMESTAMP); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_event_block = function (event_buffer : PPChar; result_buffer : PPChar; @@ -576,7 +584,7 @@ Tisc_event_counts = procedure (status_ buffer_length : Short; event_buffer : PChar; result_buffer : PChar); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_expand_dpb = procedure (dpb : PPChar; dpb_length : PShort; @@ -589,17 +597,17 @@ Tisc_modify_dpb = function (dpb isc_arg4 : UShort; isc_arg5 : PChar; isc_arg6 : Short): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_free = function (isc_arg1 : PChar): ISC_LONG; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_get_segment = function (status_vector : PISC_STATUS; blob_handle : PISC_BLOB_HANDLE; actual_seg_length : PUShort; seg_buffer_length : UShort; seg_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_get_slice = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -612,18 +620,18 @@ Tisc_get_slice = function (status_ isc_arg9 : ISC_LONG; isc_arg10 : PVoid; isc_arg11 : PISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_interprete = function (buffer : PChar; status_vector : PPISC_STATUS): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_open_blob = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; blob_handle : PISC_BLOB_HANDLE; blob_id : PISC_QUAD): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_open_blob2 = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -632,26 +640,26 @@ Tisc_open_blob2 = function (status_ blob_id : PISC_QUAD; bpb_length : Short; bpb_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_prepare_transaction2 = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; msg_length : Short; msg : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_print_sqlerror = procedure (sqlcode : Short; status_vector : PISC_STATUS); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_print_status = function (status_vector : PISC_STATUS): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_put_segment = function (status_vector : PISC_STATUS; blob_handle : PISC_BLOB_HANDLE; seg_buffer_len : UShort; seg_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_put_slice = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -663,7 +671,7 @@ Tisc_put_slice = function (status_ isc_arg8 : PISC_LONG; isc_arg9 : ISC_LONG; isc_arg10 : PVoid): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_que_events = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -672,21 +680,21 @@ Tisc_que_events = function (status_ event_buffer : PChar; event_function : TISC_CALLBACK; event_function_arg : PVoid): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_rollback_retaining = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_rollback_transaction = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_start_multiple = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; db_handle_count : Short; teb_vector_address : PISC_TEB): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_start_transaction = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -697,13 +705,13 @@ Tisc_start_transaction = function (statu cdecl; Tisc_sqlcode = function (status_vector : PISC_STATUS): ISC_LONG; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_sql_interprete = procedure (sqlcode : Short; buffer : PChar; buffer_length : Short); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_transaction_info = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -711,7 +719,7 @@ Tisc_transaction_info = function (status item_list_buffer : PChar; result_buffer_length : Short; result_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_transact_request = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -722,15 +730,15 @@ Tisc_transact_request = function (status isc_arg7 : PChar; isc_arg8 : UShort; isc_arg9 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_vax_integer = function (buffer : PChar; length : Short): ISC_LONG; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_portable_integer = function (buffer : PChar; length : Short): ISC_INT64; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (***************************************) (** Security Functions and structures **) @@ -773,15 +781,15 @@ type Tisc_add_user = function (status_vector : PISC_STATUS; user_sec_data : PUserSecData): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_delete_user = function (status_vector : PISC_STATUS; user_sec_data : PUserSecData): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_modify_user = function (status_vector : PISC_STATUS; user_sec_data : PUserSecData): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (************************************) (** Other OSRI functions **) @@ -792,25 +800,25 @@ Tisc_compile_request = function (status_ request_handle : PISC_REQ_HANDLE; isc_arg4 : Short; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_compile_request2 = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; request_handle : PISC_REQ_HANDLE; isc_arg4 : Short; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_ddl = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; isc_arg4 : Short; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_prepare_transaction = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_receive = function (status_vector : PISC_STATUS; @@ -819,7 +827,7 @@ Tisc_receive = function (status_ isc_arg4 : Short; isc_arg5 : PVoid; isc_arg6 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_receive2 = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; @@ -829,18 +837,18 @@ Tisc_receive2 = function (status_ isc_arg6, isc_arg7 : Short; isc_arg8 : Long): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_reconnect_transaction = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; isc_arg4 : Short; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_release_request = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_request_info = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; @@ -849,14 +857,14 @@ Tisc_request_info = function (status_ isc_arg5 : PChar; isc_arg6 : Short; isc_arg7 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_seek_blob = function (status_vector : PISC_STATUS; blob_handle : PISC_BLOB_HANDLE; isc_arg3 : Short; isc_arg4 : ISC_LONG; isc_arg5 : PISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_send = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; @@ -864,7 +872,7 @@ Tisc_send = function (status_ isc_arg4 : Short; isc_arg5 : PVoid; isc_arg6 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_start_and_send = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; @@ -873,25 +881,25 @@ Tisc_start_and_send = function (status_ isc_arg5 : Short; isc_arg6 : PVoid; isc_arg7 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_start_request = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; tran_handle : PISC_TR_HANDLE; isc_arg4 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_unwind_request = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; isc_arg3 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_wait_for_event = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; length : Short; event_buffer, result_buffer : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*******************************) (** Other Sql functions **) @@ -899,46 +907,46 @@ Tisc_wait_for_event = function (status_ {$IFDEF IB5_ONLY} Tisc_close = function (status_vector : PISC_STATUS; isc_arg2 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_declare = function (status_vector : PISC_STATUS; isc_arg2, isc_arg3 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_describe = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_describe_bind = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_execute = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; isc_arg3 : PChar; isc_arg4 : PSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_execute_immediate = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; isc_arg4 : PShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_fetch = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_open = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; isc_arg3 : PChar; isc_arg4 : PSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_prepare = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -947,50 +955,50 @@ Tisc_prepare = function (status_ isc_arg5 : PShort; isc_arg6 : PChar; isc_arg7 : PSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} {$ELSE} Tisc_close = function (status_vector : PISC_STATUS; isc_arg2 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_declare = function (status_vector : PISC_STATUS; isc_arg2, isc_arg3 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_describe = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_describe_bind = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_execute = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; isc_arg3 : PChar; isc_arg4 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_execute_immediate = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; isc_arg4 : PShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_fetch = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_open = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; isc_arg3 : PChar; isc_arg4 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_prepare = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -999,7 +1007,7 @@ Tisc_prepare = function (status_ isc_arg5 : PShort; isc_arg6 : PChar; isc_arg7 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} {$ENDIF} (***************************************) @@ -1014,7 +1022,7 @@ Tisc_dsql_execute_m = function (status_ isc_arg6 : UShort; isc_arg7 : UShort; isc_arg8 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_execute2_m = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -1029,7 +1037,7 @@ Tisc_dsql_execute2_m = function (status_ isc_arg11 : UShort; isc_arg12 : UShort; isc_arg13 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_execute_immediate_m = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -1042,7 +1050,7 @@ Tisc_dsql_execute_immediate_m = function isc_arg9 : UShort; isc_arg10 : UShort; isc_arg11 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_exec_immed3_m = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -1060,7 +1068,7 @@ Tisc_dsql_exec_immed3_m = function (sta isc_arg14 : UShort; isc_arg15 : UShort; isc_arg16 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_fetch_m = function (status_vector : PISC_STATUS; statement_handle : PISC_STMT_HANDLE; @@ -1069,7 +1077,7 @@ Tisc_dsql_fetch_m = function (status_ isc_arg5 : UShort; isc_arg6 : UShort; isc_arg7 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*$ifdef SCROLLABLE_CURSORS*) Tisc_dsql_fetch2_m = function (status_vector : PISC_STATUS; @@ -1081,7 +1089,7 @@ Tisc_dsql_fetch2_m = function (status_ isc_arg7 : PChar; isc_arg8 : UShort; isc_arg9 : Long): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*$endif*) Tisc_dsql_insert_m = function (status_vector : PISC_STATUS; @@ -1091,7 +1099,7 @@ Tisc_dsql_insert_m = function (status_ isc_arg5 : UShort; isc_arg6 : UShort; isc_arg7 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_prepare_m = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -1103,39 +1111,39 @@ Tisc_dsql_prepare_m = function (status_ isc_arg8 : PChar; isc_arg9 : UShort; isc_arg10 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_dsql_release = function (status_vector : PISC_STATUS; isc_arg2 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_close = function(status_vector : PISC_STATUS; isc_arg2 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_declare = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_describe = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : UShort; isc_arg4 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_describe_bind = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : UShort; isc_arg4 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_execute = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; isc_arg3 : PChar; isc_arg4 : UShort; isc_arg5 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_execute2 = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -1143,7 +1151,7 @@ Tisc_embed_dsql_execute2 = function (sta isc_arg4 : UShort; isc_arg5 : PXSQLDA; isc_arg6 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_execute_immed = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -1152,13 +1160,13 @@ Tisc_embed_dsql_execute_immed = function isc_arg5 : PChar; isc_arg6 : UShort; isc_arg7 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_fetch = function(status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : UShort; isc_arg4 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*$ifdef SCROLLABLE_CURSORS*) Tisc_embed_dsql_fetch2 = function (status_vector : PISC_STATUS; @@ -1167,7 +1175,7 @@ Tisc_embed_dsql_fetch2 = function (stat isc_arg4 : PXSQLDA; isc_arg5 : UShort; isc_arg6 : Long): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*$endif*) Tisc_embed_dsql_open = function (status_vector : PISC_STATUS; @@ -1175,7 +1183,7 @@ Tisc_embed_dsql_open = function (status_ isc_arg3 : PChar; isc_arg4 : UShort; isc_arg5 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_open2 = function (status_vector : PISC_STATUS; tran_handle : PISC_TR_HANDLE; @@ -1183,13 +1191,13 @@ Tisc_embed_dsql_open2 = function (status isc_arg4 : UShort; isc_arg5 : PXSQLDA; isc_arg6 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_insert = function (status_vector : PISC_STATUS; isc_arg2 : PChar; isc_arg3 : UShort; isc_arg4 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_prepare = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -1199,11 +1207,11 @@ Tisc_embed_dsql_prepare = function (sta isc_arg6 : PChar; isc_arg7 : UShort; isc_arg8 : PXSQLDA): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_embed_dsql_release = function (status_vector : PISC_STATUS; isc_arg2 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (********************************) (** Other Blob functions **) @@ -1212,66 +1220,66 @@ Tisc_embed_dsql_release = function (sta TBLOB_open = function (blob_handle : TISC_BLOB_HANDLE; isc_arg2 : PChar; isc_arg3 : int): PBSTREAM; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_put = function (isc_arg1 : char; isc_arg2 : PBSTREAM): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_close = function (isc_arg1 : PBSTREAM): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_get = function (isc_arg1 : PBSTREAM): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_display = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_dump = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_edit = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_load = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_text_dump = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBLOB_text_load = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBopen = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} TBopen2 = function (isc_arg1 : PISC_QUAD; db_handle : TISC_DB_HANDLE; tran_handle : TISC_TR_HANDLE; isc_arg4 : PChar; isc_arg5 : UShort): PBSTREAM; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (********************************) (** Other Misc functions **) @@ -1281,38 +1289,38 @@ Tisc_ftof = function (isc_arg isc_arg2 : UShort; isc_arg3 : PChar; isc_arg4 : UShort): ISC_LONG; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_print_blr = function (isc_arg1 : PChar; isc_arg2 : TISC_CALLBACK; isc_arg3 : PVoid; isc_arg4 : Short): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_set_debug = procedure (isc_arg1 : Int); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_qtoq = procedure (isc_arg1 : PISC_QUAD; isc_arg2 : PISC_QUAD); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_vtof = procedure (isc_arg1 : PChar; isc_arg2 : PChar; isc_arg3 : UShort); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_vtov = procedure (isc_arg1 : PChar; isc_arg2 : PChar; isc_arg3 : Short); - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_version = function (db_handle : PISC_DB_HANDLE; isc_arg2 : TISC_CALLBACK; isc_arg3 : PVoid): Int; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_reset_fpe = function (isc_arg1 : UShort): ISC_LONG; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*******************************************) (** Service manager functions **) @@ -1324,11 +1332,11 @@ Tisc_service_attach = function (status_ service_handle : PISC_SVC_HANDLE; isc_arg5 : UShort; isc_arg6 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_service_detach = function (status_vector : PISC_STATUS; service_handle : PISC_SVC_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_service_query = function (status_vector : PISC_STATUS; service_handle : PISC_SVC_HANDLE; @@ -1339,14 +1347,14 @@ Tisc_service_query = function (status_ isc_arg7 : PChar; isc_arg8 : UShort; isc_arg9 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_service_start = function (status_vector : PISC_STATUS; service_handle : PISC_SVC_HANDLE; recv_handle : PISC_SVC_HANDLE; isc_arg4 : UShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (*********************************) (** Forms functions **) @@ -1357,21 +1365,21 @@ Tisc_compile_map = function (status_ request_handle : PISC_REQ_HANDLE; isc_arg4 : PShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_compile_menu = function (status_vector : PISC_STATUS; form_handle : PISC_FORM_HANDLE; request_handle : PISC_REQ_HANDLE; isc_arg4 : PShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_compile_sub_map = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE; request_handle : PISC_REQ_HANDLE; isc_arg4 : PShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_create_window = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE; @@ -1379,11 +1387,11 @@ Tisc_create_window = function (status_ isc_arg4 : PChar; isc_arg5 : PShort; isc_arg6 : PShort): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_delete_window = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_drive_form = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -1392,7 +1400,7 @@ Tisc_drive_form = function (status_ request_handle : PISC_REQ_HANDLE; isc_arg6 : PUChar; isc_arg7 : PUChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_drive_menu = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE; @@ -1405,25 +1413,25 @@ Tisc_drive_menu = function (status_ isc_arg9 : PShort; isc_arg10 : PChar; isc_arg11 : PISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_form_delete = function (status_vector : PISC_STATUS; form_handle : PISC_FORM_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_form_fetch = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; request_handle : PISC_REQ_HANDLE; isc_arg5 : PUChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_form_insert = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; tran_handle : PISC_TR_HANDLE; request_handle : PISC_REQ_HANDLE; isc_arg5 : PUChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_get_entree = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; @@ -1431,18 +1439,18 @@ Tisc_get_entree = function (status_ isc_arg4 : PChar; isc_arg5 : PISC_LONG; isc_arg6 : PShort): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_initialize_menu = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_menu = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE; request_handle : PISC_REQ_HANDLE; isc_arg4 : PShort; isc_arg5 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_load_form = function (status_vector : PISC_STATUS; db_handle : PISC_DB_HANDLE; @@ -1450,26 +1458,26 @@ Tisc_load_form = function (status_ form_handle : PISC_FORM_HANDLE; isc_arg5 : PShort; isc_arg6 : PChar): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_pop_window = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_put_entree = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE; isc_arg3 : PShort; isc_arg4 : PChar; isc_arg5 : PISC_LONG): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_reset_form = function (status_vector : PISC_STATUS; request_handle : PISC_REQ_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} Tisc_suspend_window = function (status_vector : PISC_STATUS; win_handle : PISC_WIN_HANDLE): ISC_STATUS; - stdcall; + {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF} (** Constants!!! **) (*****************************************************)