paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed warning/notes

Browse Source
This commit is contained in:
peter 2000-06-01 10:59:22 +00:00
parent dd4c5959f3
commit 8ee8e1cebd
5 changed files with 144 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/forms/fd2pascal.pp
View File

@ -77,7 +77,7 @@ Const
To force setting of a property, put 'FL_FORCE' as a string. To force setting of a property, put 'FL_FORCE' as a string.
Mind : Case sensitive } Mind : Case sensitive }
DefProps : array[ObjClasses,AdjProps] of string[25] = DefProps : array[ObjClasses,AdjProps] of string[30] =
(('FL_INVALID','','','','','','FL_NORMAL_STYLE','FL_FORCE'), (('FL_INVALID','','','','','','FL_NORMAL_STYLE','FL_FORCE'),
('BUTTON','FL_UP_BOX','FL_COL1 FL_COL1','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), ('BUTTON','FL_UP_BOX','FL_COL1 FL_COL1','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'),
('LIGHTBUTTON','FL_UP_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'), ('LIGHTBUTTON','FL_UP_BOX','FL_COL1 FL_YELLOW','FL_ALIGN_CENTER','','FL_LCOL','FL_NORMAL_STYLE','FL_FORCE'),

257
packages/ibase/ibase60.pp
View File

@ -23,7 +23,7 @@ type
Float = Single; Float = Single;
{ Pointers to basic types } { Pointers to basic types }
PByte = ^Byte; PByte = ^Byte;
PInt = ^Int; PInt = ^Int;
PShort = ^Short; PShort = ^Short;
@ -35,7 +35,7 @@ type
PVoid = ^Pointer; PVoid = ^Pointer;
PSmallint = ^Smallint; PSmallint = ^Smallint;
PWOrd = ^Word; PWOrd = ^Word;
{$PACKRECORDS C} {$PACKRECORDS C}
@ -47,26 +47,26 @@ type
ISC__FALSE = ISC_FALSE; ISC__FALSE = ISC_FALSE;
Type Type
ISC_USHORT = word; ISC_USHORT = word;
ISC_STATUS = longint; ISC_STATUS = longint;
ISC_INT64 = int64; ISC_INT64 = int64;
ISC_UINT64 = qword; ISC_UINT64 = qword;
ISC_LONG = Longint; ISC_LONG = Longint;
PISC_USHORT = ^ISC_USHORT; PISC_USHORT = ^ISC_USHORT;
PISC_STATUS = ^ISC_STATUS; PISC_STATUS = ^ISC_STATUS;
PPISC_STATUS = ^PISC_STATUS; PPISC_STATUS = ^PISC_STATUS;
PISC_INT64 = ^ISC_INT64; PISC_INT64 = ^ISC_INT64;
PISC_UINT64 = ^ISC_UINT64; PISC_UINT64 = ^ISC_UINT64;
PISC_LONG = ^ISC_LONG; PISC_LONG = ^ISC_LONG;
const const
DSQL_close = 1; DSQL_close = 1;
DSQL_drop = 2; DSQL_drop = 2;
{!!MVC {!!MVC
Removed all ISC_FAR, ISC_EXPORT_VARARG and ISC_EXPORT Removed all ISC_FAR, ISC_EXPORT_VARARG and ISC_EXPORT
macros. macros.
They confuse h2pas... They confuse h2pas...
!!MVC } !!MVC }
{ } { }
@ -100,19 +100,19 @@ Type
{ } { }
Type Type
GDS_QUAD = record GDS_QUAD = record
gds_quad_high : ISC_LONG; gds_quad_high : ISC_LONG;
gds_quad_low : ISC_LONG; gds_quad_low : ISC_LONG;
end; end;
TGDS_QUAD = GDS_QUAD; TGDS_QUAD = GDS_QUAD;
PGDS_QUAD = ^GDS_QUAD; PGDS_QUAD = ^GDS_QUAD;
Type Type
ISC_QUAD = GDS_QUAD; ISC_QUAD = GDS_QUAD;
TISC_QUAD = ISC_QUAD; TISC_QUAD = ISC_QUAD;
PISC_QUAD = ^ISC_QUAD; PISC_QUAD = ^ISC_QUAD;
{ !!field redefinitions !! { !!field redefinitions !!
isc_quad_high = gds_quad_high; isc_quad_high = gds_quad_high;
isc_quad_low = gds_quad_low; isc_quad_low = gds_quad_low;
@ -124,9 +124,9 @@ type
array_bound_lower : smallint; array_bound_lower : smallint;
array_bound_upper : smallint; array_bound_upper : smallint;
end; end;
TISC_ARRAY_BOUND = ISC_ARRAY_BOUND; TISC_ARRAY_BOUND = ISC_ARRAY_BOUND;
PISC_ARRAY_BOUND = ^ISC_ARRAY_BOUND; PISC_ARRAY_BOUND = ^ISC_ARRAY_BOUND;
ISC_ARRAY_DESC = record ISC_ARRAY_DESC = record
array_desc_dtype : byte; array_desc_dtype : byte;
array_desc_scale : char; array_desc_scale : char;
@ -137,9 +137,9 @@ type
array_desc_flags : smallint; array_desc_flags : smallint;
array_desc_bounds : array[0..15] of ISC_ARRAY_BOUND; array_desc_bounds : array[0..15] of ISC_ARRAY_BOUND;
end; end;
TISC_ARRAY_DESC = ISC_ARRAY_DESC; TISC_ARRAY_DESC = ISC_ARRAY_DESC;
PISC_ARRAY_DESC = ^ISC_ARRAY_DESC; PISC_ARRAY_DESC = ^ISC_ARRAY_DESC;
ISC_BLOB_DESC = record ISC_BLOB_DESC = record
blob_desc_subtype : smallint; blob_desc_subtype : smallint;
blob_desc_charset : smallint; blob_desc_charset : smallint;
@ -147,8 +147,8 @@ type
blob_desc_field_name : array[0..31] of byte; blob_desc_field_name : array[0..31] of byte;
blob_desc_relation_name : array[0..31] of byte; blob_desc_relation_name : array[0..31] of byte;
end; end;
TISC_BLOB_DESC = ISC_BLOB_DESC; TISC_BLOB_DESC = ISC_BLOB_DESC;
PISC_BLOB_DESC = ^ISC_BLOB_DESC ; PISC_BLOB_DESC = ^ISC_BLOB_DESC ;
{ } { }
{ Blob control structure } { Blob control structure }
{ } { }
@ -174,11 +174,11 @@ type
{ Address of status vector } { Address of status vector }
{ Application specific data } { Application specific data }
TCTLSourceFunction = function : isc_long; TCTLSourceFunction = function : isc_long;
PISC_BLOB_CTL = ^ISC_BLOB_CTL ; PISC_BLOB_CTL = ^ISC_BLOB_CTL ;
ISC_BLOB_CTL = record ISC_BLOB_CTL = record
ctl_source : TCTLSourceFunction; // was ISC_STATUS ( *ctl_source)(); ctl_source : TCTLSourceFunction; // was ISC_STATUS ( *ctl_source)();
ctl_source_handle : pisc_blob_ctl ; // was struct isc_blob_ctl * ctl_source_handle; ctl_source_handle : pisc_blob_ctl ; // was struct isc_blob_ctl * ctl_source_handle;
ctl_to_sub_type : smallint; ctl_to_sub_type : smallint;
ctl_from_sub_type : smallint; ctl_from_sub_type : smallint;
ctl_buffer_length : word; ctl_buffer_length : word;
@ -193,7 +193,7 @@ type
ctl_data : array[0..7] of longint; ctl_data : array[0..7] of longint;
end; end;
TISC_BLOB_CTL = ISC_BLOB_CTL; TISC_BLOB_CTL = ISC_BLOB_CTL;
{ } { }
{ Blob stream definitions } { Blob stream definitions }
{ } { }
@ -215,11 +215,11 @@ type
TBSTREAM = BSTREAM; TBSTREAM = BSTREAM;
PBstream = ^BSTREAM; PBstream = ^BSTREAM;
{!!MVC {!!MVC
#define getb(p) (--(p)->bstr_cnt >= 0 ? (p)->bstr_ptr++ & 0377: BLOB_get (p)) #define getb(p) (--(p)->bstr_cnt >= 0 ? (p)->bstr_ptr++ & 0377: BLOB_get (p))
#define putb(x,p) (((x) == '\n' || (!(--(p)->bstr_cnt))) ? BLOB_put ((x),p) : ((int) ( (p)->bstr_ptr++ = (unsigned) (x)))) #define putb(x,p) (((x) == '\n' || (!(--(p)->bstr_cnt))) ? BLOB_put ((x),p) : ((int) ( (p)->bstr_ptr++ = (unsigned) (x))))
#define putbx(x,p) ((!(--(p)->bstr_cnt)) ? BLOB_put ((x),p) : ((int) ( (p)->bstr_ptr++ = (unsigned) (x)))) #define putbx(x,p) ((!(--(p)->bstr_cnt)) ? BLOB_put ((x),p) : ((int) ( (p)->bstr_ptr++ = (unsigned) (x))))
!!MVC } !!MVC }
{ } { }
{ Dynamic SQL definitions } { Dynamic SQL definitions }
@ -263,8 +263,8 @@ type
aliasname_length : smallint; aliasname_length : smallint;
aliasname : array[0..31] of char; aliasname : array[0..31] of char;
end; end;
TXSQLVAR = XSQLVAR; TXSQLVAR = XSQLVAR;
PXSQLVAR =^XSQLVAR; PXSQLVAR =^XSQLVAR;
{ version of this XSQLDA } { version of this XSQLDA }
{ XSQLDA name field } { XSQLDA name field }
{ length in bytes of SQLDA } { length in bytes of SQLDA }
@ -284,10 +284,10 @@ type
PXSQLDA =^XSQLDA; PXSQLDA =^XSQLDA;
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
{ return type might be wrong } { return type might be wrong }
Const Const
XSQLDA_LENGTH = sizeof(XSQLDA); XSQLDA_LENGTH = sizeof(XSQLDA);
{ return type might be wrong } { return type might be wrong }
const const
@ -349,38 +349,38 @@ type
{ OSRI database functions } { OSRI database functions }
{ } { }
function isc_attach_database(_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint; function isc_attach_database(_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
function isc_array_gen_sdl(_para1:PISC_STATUS; _para2:PISC_ARRAY_DESC; _para3:Psmallint; _para4:Pchar; _para5:Psmallint):ISC_STATUS; cdecl; external; function isc_array_gen_sdl(_para1:PISC_STATUS; _para2:PISC_ARRAY_DESC; _para3:Psmallint; _para4:Pchar; _para5:Psmallint):ISC_STATUS; cdecl; external;
function isc_array_get_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC; function isc_array_get_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC;
_para6:pointer; _para7:PISC_LONG):ISC_STATUS; cdecl; external; _para6:pointer; _para7:PISC_LONG):ISC_STATUS; cdecl; external;
function isc_array_lookup_bounds(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar; function isc_array_lookup_bounds(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar;
_para6:PISC_ARRAY_DESC):ISC_STATUS; cdecl; external; _para6:PISC_ARRAY_DESC):ISC_STATUS; cdecl; external;
function isc_array_lookup_desc(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar; function isc_array_lookup_desc(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar;
_para6:PISC_ARRAY_DESC):ISC_STATUS; cdecl; external; _para6:PISC_ARRAY_DESC):ISC_STATUS; cdecl; external;
function isc_array_set_desc(_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar; _para4:Psmallint; _para5:Psmallint; function isc_array_set_desc(_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar; _para4:Psmallint; _para5:Psmallint;
_para6:Psmallint; _para7:PISC_ARRAY_DESC):ISC_STATUS; cdecl; external; _para6:Psmallint; _para7:PISC_ARRAY_DESC):ISC_STATUS; cdecl; external;
function isc_array_put_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC; function isc_array_put_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC;
_para6:pointer; _para7:PISC_LONG):ISC_STATUS; cdecl; external; _para6:pointer; _para7:PISC_LONG):ISC_STATUS; cdecl; external;
procedure isc_blob_default_desc(_para1:PISC_BLOB_DESC; _para2:Pbyte; _para3:Pbyte); cdecl; external; procedure isc_blob_default_desc(_para1:PISC_BLOB_DESC; _para2:Pbyte; _para3:Pbyte); cdecl; external;
function isc_blob_gen_bpb(_para1:PISC_STATUS; _para2:PISC_BLOB_DESC; _para3:PISC_BLOB_DESC; _para4:word; _para5:Pbyte; function isc_blob_gen_bpb(_para1:PISC_STATUS; _para2:PISC_BLOB_DESC; _para3:PISC_BLOB_DESC; _para4:word; _para5:Pbyte;
_para6:Pword):ISC_STATUS; cdecl; external; _para6:Pword):ISC_STATUS; cdecl; external;
function isc_blob_info(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:Pchar; _para5:smallint; function isc_blob_info(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
function isc_blob_lookup_desc(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pbyte; _para5:Pbyte; function isc_blob_lookup_desc(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pbyte; _para5:Pbyte;
_para6:PISC_BLOB_DESC; _para7:Pbyte):ISC_STATUS; cdecl; external; _para6:PISC_BLOB_DESC; _para7:Pbyte):ISC_STATUS; cdecl; external;
function isc_blob_set_desc(_para1:PISC_STATUS; _para2:Pbyte; _para3:Pbyte; _para4:smallint; _para5:smallint; function isc_blob_set_desc(_para1:PISC_STATUS; _para2:Pbyte; _para3:Pbyte; _para4:smallint; _para5:smallint;
_para6:smallint; _para7:PISC_BLOB_DESC):ISC_STATUS; cdecl; external; _para6:smallint; _para7:PISC_BLOB_DESC):ISC_STATUS; cdecl; external;
function isc_cancel_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle):ISC_STATUS; cdecl; external; function isc_cancel_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle):ISC_STATUS; cdecl; external;
@ -395,13 +395,13 @@ type
function isc_create_blob(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; cdecl; external; function isc_create_blob(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; cdecl; external;
function isc_create_blob2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD; function isc_create_blob2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD;
_para6:smallint; _para7:Pchar):ISC_STATUS; cdecl; external; _para6:smallint; _para7:Pchar):ISC_STATUS; cdecl; external;
function isc_create_database(_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint; function isc_create_database(_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint;
_para6:Pchar; _para7:smallint):ISC_STATUS; cdecl; external; _para6:Pchar; _para7:smallint):ISC_STATUS; cdecl; external;
function isc_database_info(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:smallint; _para4:Pchar; _para5:smallint; function isc_database_info(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
procedure isc_decode_date(_para1:PISC_QUAD; _para2:pointer); cdecl; external; procedure isc_decode_date(_para1:PISC_QUAD; _para2:pointer); cdecl; external;
@ -424,15 +424,15 @@ type
function isc_dsql_describe_bind(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external; function isc_dsql_describe_bind(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_exec_immed2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar; function isc_dsql_exec_immed2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:PXSQLDA; _para8:PXSQLDA):ISC_STATUS; cdecl; external; _para6:word; _para7:PXSQLDA; _para8:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA):ISC_STATUS; cdecl; external; function isc_dsql_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_execute2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA; function isc_dsql_execute2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA;
_para6:PXSQLDA):ISC_STATUS; cdecl; external; _para6:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_execute_immediate(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar; function isc_dsql_execute_immediate(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:PXSQLDA):ISC_STATUS; cdecl; external; _para6:word; _para7:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_fetch(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external; function isc_dsql_fetch(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external;
@ -443,12 +443,12 @@ type
function isc_dsql_insert(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external; function isc_dsql_insert(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_prepare(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar; function isc_dsql_prepare(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:PXSQLDA):ISC_STATUS; cdecl; external; _para6:word; _para7:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_dsql_set_cursor_name(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:Pchar; _para4:word):ISC_STATUS; cdecl; external; function isc_dsql_set_cursor_name(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:Pchar; _para4:word):ISC_STATUS; cdecl; external;
function isc_dsql_sql_info(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:smallint; _para4:Pchar; _para5:smallint; function isc_dsql_sql_info(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
procedure isc_encode_date(_para1:pointer; _para2:PISC_QUAD); cdecl; external; procedure isc_encode_date(_para1:pointer; _para2:PISC_QUAD); cdecl; external;
@ -462,10 +462,10 @@ type
function isc_event_block(_para1:PPchar; _para2:PPchar; _para3:word; args:array of const):ISC_LONG; cdecl; external; function isc_event_block(_para1:PPchar; _para2:PPchar; _para3:word; args:array of const):ISC_LONG; cdecl; external;
{!!MVC {!!MVC
void isc_event_counts (unsigned ISC_LONG , void isc_event_counts (unsigned ISC_LONG ,
short, short,
char , char ,
char ); cdecl; external; char ); cdecl; external;
!!MVC } !!MVC }
procedure isc_expand_dpb(_para1:PPchar; _para2:Psmallint; args:array of const); cdecl; external; procedure isc_expand_dpb(_para1:PPchar; _para2:Psmallint; args:array of const); cdecl; external;
@ -475,15 +475,15 @@ type
function isc_get_segment(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:Pword; _para4:word; _para5:Pchar):ISC_STATUS; cdecl; external; function isc_get_segment(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:Pword; _para4:word; _para5:Pchar):ISC_STATUS; cdecl; external;
function isc_get_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint; function isc_get_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint;
_para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer; _para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer;
_para11:PISC_LONG):ISC_STATUS; cdecl; external; _para11:PISC_LONG):ISC_STATUS; cdecl; external;
function isc_interprete(_para1:Pchar; _para2:PPISC_STATUS):ISC_STATUS; cdecl; external; function isc_interprete(_para1:Pchar; _para2:PPISC_STATUS):ISC_STATUS; cdecl; external;
function isc_open_blob(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; cdecl; external; function isc_open_blob(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; cdecl; external;
function isc_open_blob2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD; function isc_open_blob2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD;
_para6:smallint; _para7:Pchar):ISC_STATUS; cdecl; external; _para6:smallint; _para7:Pchar):ISC_STATUS; cdecl; external;
function isc_prepare_transaction2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar):ISC_STATUS; cdecl; external; function isc_prepare_transaction2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar):ISC_STATUS; cdecl; external;
@ -494,10 +494,10 @@ type
function isc_put_segment(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:word; _para4:Pchar):ISC_STATUS; cdecl; external; function isc_put_segment(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:word; _para4:Pchar):ISC_STATUS; cdecl; external;
function isc_put_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint; function isc_put_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint;
_para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer):ISC_STATUS; cdecl; external; _para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer):ISC_STATUS; cdecl; external;
function isc_que_events(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:PISC_LONG; _para4:smallint; _para5:Pchar; function isc_que_events(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:PISC_LONG; _para4:smallint; _para5:Pchar;
_para6:isc_callback; _para7:pointer):ISC_STATUS; cdecl; external; _para6:isc_callback; _para7:pointer):ISC_STATUS; cdecl; external;
function isc_rollback_retaining(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; cdecl; external; function isc_rollback_retaining(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; cdecl; external;
@ -512,10 +512,10 @@ type
procedure isc_sql_interprete(_para1:smallint; _para2:Pchar; _para3:smallint); cdecl; external; procedure isc_sql_interprete(_para1:smallint; _para2:Pchar; _para3:smallint); cdecl; external;
function isc_transaction_info(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar; _para5:smallint; function isc_transaction_info(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
function isc_transact_request(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar; function isc_transact_request(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; cdecl; external; _para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; cdecl; external;
function isc_vax_integer(_para1:Pchar; _para2:smallint):ISC_LONG; cdecl; external; function isc_vax_integer(_para1:Pchar; _para2:smallint):ISC_LONG; cdecl; external;
@ -574,7 +574,7 @@ type
end; end;
TUSER_SEC_DATA = USER_SEC_DATA; TUSER_SEC_DATA = USER_SEC_DATA;
PUSER_SEC_DATA = ^USER_SEC_DATA; PUSER_SEC_DATA = ^USER_SEC_DATA;
function isc_add_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; cdecl; external; function isc_add_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; cdecl; external;
function isc_delete_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; cdecl; external; function isc_delete_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; cdecl; external;
@ -592,22 +592,22 @@ type
function isc_prepare_transaction(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; cdecl; external; function isc_prepare_transaction(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; cdecl; external;
function isc_receive(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer; function isc_receive(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer;
_para6:smallint):ISC_STATUS; cdecl; external; _para6:smallint):ISC_STATUS; cdecl; external;
function isc_reconnect_transaction(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; cdecl; external; function isc_reconnect_transaction(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; cdecl; external;
function isc_release_request(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; cdecl; external; function isc_release_request(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; cdecl; external;
function isc_request_info(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:Pchar; function isc_request_info(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:Pchar;
_para6:smallint; _para7:Pchar):ISC_STATUS; cdecl; external; _para6:smallint; _para7:Pchar):ISC_STATUS; cdecl; external;
function isc_seek_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:ISC_LONG; _para5:PISC_LONG):ISC_STATUS; cdecl; external; function isc_seek_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:ISC_LONG; _para5:PISC_LONG):ISC_STATUS; cdecl; external;
function isc_send(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer; function isc_send(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer;
_para6:smallint):ISC_STATUS; cdecl; external; _para6:smallint):ISC_STATUS; cdecl; external;
function isc_start_and_send(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:smallint; function isc_start_and_send(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:smallint;
_para6:pointer; _para7:smallint):ISC_STATUS; cdecl; external; _para6:pointer; _para7:smallint):ISC_STATUS; cdecl; external;
function isc_start_request(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint):ISC_STATUS; cdecl; external; function isc_start_request(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint):ISC_STATUS; cdecl; external;
@ -635,35 +635,35 @@ type
function isc_open(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:PXSQLDA):ISC_STATUS; cdecl; external; function isc_open(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_prepare(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Psmallint; function isc_prepare(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Psmallint;
_para6:Pchar; _para7:PXSQLDA):ISC_STATUS; cdecl; external; _para6:Pchar; _para7:PXSQLDA):ISC_STATUS; cdecl; external;
{ } { }
{ Other Dynamic sql functions } { Other Dynamic sql functions }
{ } { }
function isc_dsql_execute_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar; function isc_dsql_execute_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:word; _para8:Pchar):ISC_STATUS; cdecl; external; _para6:word; _para7:word; _para8:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_execute2_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar; function isc_dsql_execute2_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar; _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar;
_para11:word; _para12:word; _para13:Pchar):ISC_STATUS; cdecl; external; _para11:word; _para12:word; _para13:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_execute_immediate_m(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar; function isc_dsql_execute_immediate_m(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word; _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word;
_para11:Pchar):ISC_STATUS; cdecl; external; _para11:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_exec_immed3_m(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar; function isc_dsql_exec_immed3_m(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word; _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word;
_para11:Pchar; _para12:word; _para13:Pchar; _para14:word; _para15:word; _para11:Pchar; _para12:word; _para13:Pchar; _para14:word; _para15:word;
_para16:Pchar):ISC_STATUS; cdecl; external; _para16:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_fetch_m(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word; function isc_dsql_fetch_m(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word;
_para6:word; _para7:Pchar):ISC_STATUS; cdecl; external; _para6:word; _para7:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_insert_m(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word; function isc_dsql_insert_m(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word;
_para6:word; _para7:Pchar):ISC_STATUS; cdecl; external; _para6:word; _para7:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_prepare_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar; function isc_dsql_prepare_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar):ISC_STATUS; cdecl; external; _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar):ISC_STATUS; cdecl; external;
function isc_dsql_release(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; cdecl; external; function isc_dsql_release(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; cdecl; external;
@ -678,22 +678,22 @@ type
function isc_embed_dsql_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; cdecl; external; function isc_embed_dsql_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_execute2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA; function isc_embed_dsql_execute2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA;
_para6:PXSQLDA):ISC_STATUS; cdecl; external; _para6:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_execute_immed(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar; function isc_embed_dsql_execute_immed(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:PXSQLDA):ISC_STATUS; cdecl; external; _para6:word; _para7:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_fetch(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external; function isc_embed_dsql_fetch(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_open(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; cdecl; external; function isc_embed_dsql_open(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_open2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA; function isc_embed_dsql_open2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA;
_para6:PXSQLDA):ISC_STATUS; cdecl; external; _para6:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_insert(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external; function isc_embed_dsql_insert(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_prepare(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:word; function isc_embed_dsql_prepare(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:word;
_para6:Pchar; _para7:word; _para8:PXSQLDA):ISC_STATUS; cdecl; external; _para6:Pchar; _para7:word; _para8:PXSQLDA):ISC_STATUS; cdecl; external;
function isc_embed_dsql_release(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; cdecl; external; function isc_embed_dsql_release(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; cdecl; external;
@ -747,21 +747,22 @@ type
{ } { }
{ Service manager functions } { Service manager functions }
{ } { }
{!!MVC (*!!MVC
#define ADD_SPB_LENGTH(p, length) { (p)++ = (length); \ #define ADD_SPB_LENGTH(p, length) { (p)++ = (length); \
(p)++ = (length) >> 8;} (p)++ = (length) >> 8;}
#define ADD_SPB_NUMERIC(p, data) { (p)++ = (data); \ #define ADD_SPB_NUMERIC(p, data) { (p)++ = (data); \
(p)++ = (data) >> 8; \ (p)++ = (data) >> 8; \
(p)++ = (data) >> 16; \ (p)++ = (data) >> 16; \
(p)++ = (data) >> 24;} (p)++ = (data) >> 24;}
!!MVC } !!MVC *)
function isc_service_attach(_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word;
function isc_service_attach(_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
function isc_service_detach(_para1:PISC_STATUS; _para2:Pisc_svc_handle):ISC_STATUS; cdecl; external; function isc_service_detach(_para1:PISC_STATUS; _para2:Pisc_svc_handle):ISC_STATUS; cdecl; external;
function isc_service_query(_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar; function isc_service_query(_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar;
_para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; cdecl; external; _para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; cdecl; external;
function isc_service_start(_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar):ISC_STATUS; cdecl; external; function isc_service_start(_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar):ISC_STATUS; cdecl; external;
@ -775,16 +776,16 @@ type
function isc_compile_sub_map(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; cdecl; external; function isc_compile_sub_map(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; cdecl; external;
function isc_create_window(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Psmallint; _para4:Pchar; _para5:Psmallint; function isc_create_window(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Psmallint; _para4:Pchar; _para5:Psmallint;
_para6:Psmallint):ISC_STATUS; cdecl; external; _para6:Psmallint):ISC_STATUS; cdecl; external;
function isc_delete_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; cdecl; external; function isc_delete_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; cdecl; external;
function isc_drive_form(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_win_handle; _para5:Pisc_req_handle; function isc_drive_form(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_win_handle; _para5:Pisc_req_handle;
_para6:Pbyte; _para7:Pbyte):ISC_STATUS; cdecl; external; _para6:Pbyte; _para7:Pbyte):ISC_STATUS; cdecl; external;
function isc_drive_menu(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar; function isc_drive_menu(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar;
_para6:Psmallint; _para7:Pchar; _para8:Psmallint; _para9:Psmallint; _para10:Pchar; _para6:Psmallint; _para7:Pchar; _para8:Psmallint; _para9:Psmallint; _para10:Pchar;
_para11:PISC_LONG):ISC_STATUS; cdecl; external; _para11:PISC_LONG):ISC_STATUS; cdecl; external;
function isc_form_delete(_para1:PISC_STATUS; _para2:Pisc_form_handle):ISC_STATUS; cdecl; external; function isc_form_delete(_para1:PISC_STATUS; _para2:Pisc_form_handle):ISC_STATUS; cdecl; external;
@ -793,14 +794,14 @@ type
function isc_form_insert(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_req_handle; _para5:Pbyte):ISC_STATUS; cdecl; external; function isc_form_insert(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_req_handle; _para5:Pbyte):ISC_STATUS; cdecl; external;
function isc_get_entree(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Psmallint; _para4:Pchar; _para5:PISC_LONG; function isc_get_entree(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Psmallint; _para4:Pchar; _para5:PISC_LONG;
_para6:Psmallint):ISC_STATUS; cdecl; external; _para6:Psmallint):ISC_STATUS; cdecl; external;
function isc_initialize_menu(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; cdecl; external; function isc_initialize_menu(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; cdecl; external;
function isc_menu(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; cdecl; external; function isc_menu(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; cdecl; external;
function isc_load_form(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_form_handle; _para5:Psmallint; function isc_load_form(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_form_handle; _para5:Psmallint;
_para6:Pchar):ISC_STATUS; cdecl; external; _para6:Pchar):ISC_STATUS; cdecl; external;
function isc_pop_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; cdecl; external; function isc_pop_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; cdecl; external;
@ -1562,8 +1563,8 @@ type
{ Transaction information items } { Transaction information items }
{ } { }
isc_info_tra_id = 4; isc_info_tra_id = 4;
{ {
Service action items Service action items
} }
{ Starts database backup process on the server } { Starts database backup process on the server }
isc_action_svc_backup = 1; isc_action_svc_backup = 1;
@ -1589,8 +1590,8 @@ type
isc_action_svc_db_stats = 11; isc_action_svc_db_stats = 11;
{ Retrieves the InterBase log file from the server } { Retrieves the InterBase log file from the server }
isc_action_svc_get_ib_log = 12; isc_action_svc_get_ib_log = 12;
{ {
Service information items Service information items
} }
{ Retrieves the number of attachments and databases } { Retrieves the number of attachments and databases }
isc_info_svc_svr_db_info = 50; isc_info_svc_svr_db_info = 50;
@ -1630,8 +1631,8 @@ type
isc_info_svc_running = 67; isc_info_svc_running = 67;
{ Returns the user information from isc_action_svc_display_users } { Returns the user information from isc_action_svc_display_users }
isc_info_svc_get_users = 68; isc_info_svc_get_users = 68;
{ {
Parameters for isc_action_(add|delete|modify)_user Parameters for isc_action_(add|delete|modify)_user
} }
isc_spb_sec_userid = 5; isc_spb_sec_userid = 5;
isc_spb_sec_groupid = 6; isc_spb_sec_groupid = 6;
@ -1641,15 +1642,15 @@ type
isc_spb_sec_firstname = 10; isc_spb_sec_firstname = 10;
isc_spb_sec_middlename = 11; isc_spb_sec_middlename = 11;
isc_spb_sec_lastname = 12; isc_spb_sec_lastname = 12;
{ {
Parameters for isc_action_svc_(add|remove)_license, Parameters for isc_action_svc_(add|remove)_license,
isc_info_svc_get_license isc_info_svc_get_license
} }
isc_spb_lic_key = 5; isc_spb_lic_key = 5;
isc_spb_lic_id = 6; isc_spb_lic_id = 6;
isc_spb_lic_desc = 7; isc_spb_lic_desc = 7;
{ {
Parameters for isc_action_svc_backup Parameters for isc_action_svc_backup
} }
isc_spb_bkp_file = 5; isc_spb_bkp_file = 5;
isc_spb_bkp_factor = 6; isc_spb_bkp_factor = 6;
@ -1662,8 +1663,8 @@ type
isc_spb_bkp_non_transportable = $20; isc_spb_bkp_non_transportable = $20;
isc_spb_bkp_convert = $40; isc_spb_bkp_convert = $40;
isc_spb_bkp_expand = $80; isc_spb_bkp_expand = $80;
{ {
Parameters for isc_action_svc_properties Parameters for isc_action_svc_properties
} }
isc_spb_prp_page_buffers = 5; isc_spb_prp_page_buffers = 5;
isc_spb_prp_sweep_interval = 6; isc_spb_prp_sweep_interval = 6;
@ -1676,23 +1677,23 @@ type
isc_spb_prp_set_sql_dialect = 14; isc_spb_prp_set_sql_dialect = 14;
isc_spb_prp_activate = $0100; isc_spb_prp_activate = $0100;
isc_spb_prp_db_online = $0200; isc_spb_prp_db_online = $0200;
{ {
Parameters for isc_spb_prp_reserve_space Parameters for isc_spb_prp_reserve_space
} }
isc_spb_prp_res_use_full = 35; isc_spb_prp_res_use_full = 35;
isc_spb_prp_res = 36; isc_spb_prp_res = 36;
{ {
Parameters for isc_spb_prp_write_mode Parameters for isc_spb_prp_write_mode
} }
isc_spb_prp_wm_async = 37; isc_spb_prp_wm_async = 37;
isc_spb_prp_wm_sync = 38; isc_spb_prp_wm_sync = 38;
{ {
Parameters for isc_spb_prp_access_mode Parameters for isc_spb_prp_access_mode
} }
isc_spb_prp_am_readonly = 39; isc_spb_prp_am_readonly = 39;
isc_spb_prp_am_readwrite = 40; isc_spb_prp_am_readwrite = 40;
{ {
Parameters for isc_action_svc_repair Parameters for isc_action_svc_repair
} }
isc_spb_rpr_commit_trans = 15; isc_spb_rpr_commit_trans = 15;
isc_spb_rpr_rollback_trans = 34; isc_spb_rpr_rollback_trans = 34;
@ -1720,8 +1721,8 @@ type
isc_spb_rpr_ignore_checksum = $20; isc_spb_rpr_ignore_checksum = $20;
isc_spb_rpr_kill_shadows = $40; isc_spb_rpr_kill_shadows = $40;
isc_spb_rpr_full = $80; isc_spb_rpr_full = $80;
{ {
Parameters for isc_action_svc_restore Parameters for isc_action_svc_restore
} }
isc_spb_res_buffers = 9; isc_spb_res_buffers = 9;
isc_spb_res_page_size = 10; isc_spb_res_page_size = 10;
@ -1734,18 +1735,18 @@ type
isc_spb_res_replace = $1000; isc_spb_res_replace = $1000;
isc_spb_res_create = $2000; isc_spb_res_create = $2000;
isc_spb_res_use_all_space = $4000; isc_spb_res_use_all_space = $4000;
{ {
Parameters for isc_spb_res_access_mode Parameters for isc_spb_res_access_mode
} }
isc_spb_res_am_readonly = isc_spb_prp_am_readonly; isc_spb_res_am_readonly = isc_spb_prp_am_readonly;
isc_spb_res_am_readwrite = isc_spb_prp_am_readwrite; isc_spb_res_am_readwrite = isc_spb_prp_am_readwrite;
{ {
Parameters for isc_info_svc_svr_db_info Parameters for isc_info_svc_svr_db_info
} }
isc_spb_num_att = 5; isc_spb_num_att = 5;
isc_spb_num_db = 6; isc_spb_num_db = 6;
{ {
Parameters for isc_info_svc_db_stats Parameters for isc_info_svc_db_stats
} }
isc_spb_sts_data_pages = $01; isc_spb_sts_data_pages = $01;
isc_spb_sts_db_log = $02; isc_spb_sts_db_log = $02;

8
utils/fprcp/expr.pp
View File

@ -1,7 +1,7 @@
{$ifdef win32} {$ifdef win32}
{$H-} {$H-}
{$endif} {$endif}
{$N+} {$ifndef fpc}{$N+}{$endif}
Unit Expr; Unit Expr;
interface interface
const const
@ -67,7 +67,7 @@ FUNCTION add_subt: Real;
'ARCTAN','LN','LOG','EXP','FACT', 'ARCTAN','LN','LOG','EXP','FACT',
'PRED','SUCC','ROUND','TRUNC'); 'PRED','SUCC','ROUND','TRUNC');
VAR VAR
E, L, Start : Integer; L, Start : Integer;
Funnet : Boolean; Funnet : Boolean;
F : Real; F : Real;
Sf : StdFunc; Sf : StdFunc;
@ -106,7 +106,7 @@ FUNCTION add_subt: Real;
IF Copy(Formula,Posn,l)=StdFuncName[sf] THEN IF Copy(Formula,Posn,l)=StdFuncName[sf] THEN
BEGIN BEGIN
Posn:=Posn+l-1; ParseNext; Posn:=Posn+l-1; ParseNext;
f:=UnsignedOp; f:=UnsignedOp{$ifdef fpc}(){$endif};
CASE sf of CASE sf of
fabs: f:=abs(f); fabs: f:=abs(f);
fsqrt: f:=SqrT(f); fsqrt: f:=SqrT(f);
@ -208,7 +208,7 @@ function HexToDecS:longbool;
DecError:longbool; DecError:longbool;
procedure Decim(const pattern:string); procedure Decim(const pattern:string);
var var
i,p,b,x:longint; p,b,x:longint;
ss,st:string; ss,st:string;
begin begin
repeat repeat

14
utils/fprcp/fprcp.pp
View File

@ -2,7 +2,7 @@ program FreePasResourcePreprocessor;
{$ifdef win32} {$ifdef win32}
{$APPTYPE CONSOLE} {$APPTYPE CONSOLE}
{$endif} {$endif}
{$N+} {$ifndef fpc}{$N+}{$endif}
uses uses
Comments,PasPrep,Expr Comments,PasPrep,Expr
{$ifndef win32} {$ifndef win32}
@ -171,7 +171,7 @@ function GetSwitch(const switch:str255):str255;
if paramstr(i)='-'+switch then if paramstr(i)='-'+switch then
GetSwitch:=paramstr(succ(i)); GetSwitch:=paramstr(succ(i));
end; end;
procedure saveproc(const key,value:str255;CaseSent:longbool);far; procedure saveproc(const key,value:str255;CaseSent:longbool);{$ifndef fpc}far;{$endif}
var var
c:pReplaceRec; c:pReplaceRec;
begin begin
@ -341,9 +341,8 @@ function do_include(name:str255):longbool;
var var
buf:pchars; buf:pchars;
f:file; f:file;
i,size,nextpos:longint; size:longint;
s1,s2:str255; s1:str255;
done:longbool;
procedure trim; procedure trim;
begin begin
delete(name,1,1); delete(name,1,1);
@ -373,6 +372,7 @@ function do_include(name:str255):longbool;
do_pascal(buf,size,@saveProc); do_pascal(buf,size,@saveProc);
end; end;
FreeMem(buf,size); FreeMem(buf,size);
do_include:=true;
end; end;
function CheckRight(const s:str255;pos:longint):longbool; function CheckRight(const s:str255;pos:longint):longbool;
begin begin
@ -412,7 +412,7 @@ var
c:pReplaceRec; c:pReplaceRec;
j,kk:longint; j,kk:longint;
sss,sst:str255; sss,sst:str255;
MustBeReplaced,includeStatement,beginline:longbool; MustBeReplaced:longbool;
begin begin
if(paramcount=0)or isSwitch('h')or isSwitch('-help')or((paramcount>1)and(GetSwitch('i')=''))then if(paramcount=0)or isSwitch('h')or isSwitch('-help')or((paramcount>1)and(GetSwitch('i')=''))then
begin begin
@ -500,8 +500,6 @@ begin
else else
begin begin
sss:=''; sss:='';
includeStatement:=false;
beginline:=true;
i:=1; i:=1;
sss:=''; sss:='';
while i<=size do while i<=size do

6
utils/ptopu.pp
View File

@ -134,7 +134,6 @@ Type
TPrettyPrinter=Object(TObject) TPrettyPrinter=Object(TObject)
Private Private
RecordSeen, RecordSeen,
ConfigFileRead,
CRPending : BOOLEAN; CRPending : BOOLEAN;
currchar,nextchar : charinfo; currchar,nextchar : charinfo;
currsym,nextsym : symbolinfo; currsym,nextsym : symbolinfo;
@ -1223,7 +1222,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2000-05-03 13:04:08 pierre Revision 1.8 2000-06-01 10:59:22 peter
* removed warning/notes
Revision 1.7 2000/05/03 13:04:08 pierre
* avoid a problem with range check * avoid a problem with range check
Revision 1.6 2000/02/09 16:44:15 peter Revision 1.6 2000/02/09 16:44:15 peter