fpc/packages/base/mysql/mysql4types.inc

{
  Contains the types needed for use with MySQL v4.0
}

type

  Pmy_bool = ^my_bool;
  my_bool = char;

  Pgptr = ^gptr;
  gptr = char;

  Pmy_socket = ^my_socket;
  my_socket = longint;

var
  mysql_port : dword;cvar;external;
  mysql_unix_port : Pchar;cvar;external;

type
  Pst_mysql_field = ^st_mysql_field;
  st_mysql_field = record
       name : Pchar;
       table : Pchar;
       org_table : Pchar;
       db : Pchar;
       def : Pchar;
       length : dword;
       max_length : dword;
       flags : dword;
       decimals : dword;
       ftype : enum_field_types;
    end;
  MYSQL_FIELD = st_mysql_field;
  TMYSQL_FIELD = MYSQL_FIELD;
  PMYSQL_FIELD = ^MYSQL_FIELD;

type
  MYSQL_ROW = ppchar;
  PMYSQL_ROW = ^MYSQL_ROW;
  TMYSQL_ROW = MYSQL_ROW;

  PMYSQL_FIELD_OFFSET = ^MYSQL_FIELD_OFFSET;
  MYSQL_FIELD_OFFSET = dword;

  Pmy_ulonglong = ^my_ulonglong;
  my_ulonglong = qword;

type
  Pst_mysql_rows = ^st_mysql_rows;
  st_mysql_rows = record
     next : Pst_mysql_rows;
     data : MYSQL_ROW;
  end;
  MYSQL_ROWS = st_mysql_rows;
  TMYSQL_ROWS = MYSQL_ROWS;
  PMYSQL_ROWS = ^MYSQL_ROWS;

  MYSQL_ROW_OFFSET = MYSQL_ROWS;
  PMYSQL_ROW_OFFSET = ^MYSQL_ROW_OFFSET;

  Pst_used_mem = ^st_used_mem;
  st_used_mem = record
    next : Pst_used_mem;
    left : dword;
    size : dword;
  end;

  USED_MEM  = st_used_mem;
  TUSED_MEM = USED_MEM;
  PUSED_MEM = ^USED_MEM;

  Pst_mem_root = ^st_mem_root;
  st_mem_root = record
       free : PUSED_MEM;
       used : PUSED_MEM;
       pre_alloc : PUSED_MEM;
       min_malloc : dword;
       block_size : dword;
       block_num : dword;
       first_block_usage : dword;
       error_handler : procedure ;cdecl;
    end;
  MEM_ROOT = st_mem_root;
  TMEM_ROOT = MEM_ROOT;
  PMEM_ROOT = ^MEM_ROOT;

  Pst_mysql_data = ^st_mysql_data;
  st_mysql_data = record
       rows : my_ulonglong;
       fields : dword;
       data : PMYSQL_ROWS;
       alloc : MEM_ROOT;
    end;
  MYSQL_DATA = st_mysql_data;
  TMYSQL_DATA = MYSQL_DATA;
  PMYSQL_DATA = ^MYSQL_DATA;

  Pst_mysql_options = ^st_mysql_options;
  st_mysql_options = record
       connect_timeout : dword;
       client_flag : dword;
       port : dword;
       host : Pchar;
       init_command : Pchar;
       user : Pchar;
       password : Pchar;
       unix_socket : Pchar;
       db : Pchar;
       my_cnf_file : Pchar;
       my_cnf_group : Pchar;
       charset_dir : Pchar;
       charset_name : Pchar;
       ssl_key : Pchar;
       ssl_cert : Pchar;
       ssl_ca : Pchar;
       ssl_capath : Pchar;
       ssl_cipher : Pchar;
       max_allowed_packet : Cardinal;
       use_ssl : my_bool;
       compress : my_bool;
       named_pipe : my_bool;
       rpl_probe : my_bool;
       rpl_parse : my_bool;
       no_master_reads : my_bool;
    end;
  TMYSQL_OPTIONS = st_mysql_options;
  PTMYSQL_OPTIONS = ^TMYSQL_OPTIONS;

  mysql_option = (MYSQL_OPT_CONNECT_TIMEOUT,MYSQL_OPT_COMPRESS,
    MYSQL_OPT_NAMED_PIPE,MYSQL_INIT_COMMAND,
    MYSQL_READ_DEFAULT_FILE,MYSQL_READ_DEFAULT_GROUP,
    MYSQL_SET_CHARSET_DIR,MYSQL_SET_CHARSET_NAME
    );

  mysql_status = (MYSQL_STATUS_READY,MYSQL_STATUS_GET_RESULT,
    MYSQL_STATUS_USE_RESULT);

  mysql_rpl_type = (MYSQL_RPL_MASTER,MYSQL_RPL_SLAVE,MYSQL_RPL_ADMIN );

  Pst_mysql = ^st_mysql;
  st_mysql = record
       net : NET;
       connector_fd : gptr;
       host : Pchar;
       user : Pchar;
       passwd : Pchar;
       unix_socket : Pchar;
       server_version : Pchar;
       host_info : Pchar;
       info : Pchar;
       db : Pchar;
       charset : Pointer;  //!! Was Pcharset_info_st;
       fields : PMYSQL_FIELD;
       field_alloc : MEM_ROOT;
       affected_rows : my_ulonglong;
       insert_id : my_ulonglong;
       extra_info : my_ulonglong;
       thread_id : dword;
       packet_length : dword;
       port : dword;
       client_flag : dword;
       server_capabilities : dword;
       protocol_version : dword;
       field_count : dword;
       server_status : dword;
       server_language : dword;
       options : st_mysql_options;
       status : mysql_status;
       free_me : my_bool;
       reconnect : my_bool;
       scramble_buff : array[0..8] of char;
       rpl_pivot : my_bool;
       master : Pst_mysql;
       next_slave : Pst_mysql;
       last_used_slave : Pst_mysql;
       last_used_con : Pst_mysql;
    end;
  TMYSQL = st_mysql;
  PMYSQL = ^TMYSQL;

  Pst_mysql_res = ^st_mysql_res;
  st_mysql_res = record
       row_count : my_ulonglong;
       fields : PMYSQL_FIELD;
       data : PMYSQL_DATA;
       data_cursor : PMYSQL_ROWS;
       lengths : Pdword;
       handle : PMYSQL;
       field_alloc : MEM_ROOT;
       field_count : dword;
       current_field : dword;
       row : MYSQL_ROW;
       current_row : MYSQL_ROW;
       eof : my_bool;
    end;
  MYSQL_RES = st_mysql_res;
  TMYSQL_RES = MYSQL_RES;
  PMYSQL_RES = ^MYSQL_RES;

const
  MAX_MYSQL_MANAGER_ERR = 256;
  MAX_MYSQL_MANAGER_MSG = 256;
  MANAGER_OK = 200;
  MANAGER_INFO = 250;
  MANAGER_ACCESS = 401;
  MANAGER_CLIENT_ERR = 450;
  MANAGER_INTERNAL_ERR = 500;

type

  Pst_mysql_manager = ^st_mysql_manager;
  st_mysql_manager = record
       net : NET;
       host : Pchar;
       user : Pchar;
       passwd : Pchar;
       port : dword;
       free_me : my_bool;
       eof : my_bool;
       cmd_status : longint;
       last_errno : longint;
       net_buf : Pchar;
       net_buf_pos : Pchar;
       net_data_end : Pchar;
       net_buf_size : longint;
       last_error : array[0..(MAX_MYSQL_MANAGER_ERR)-1] of char;
    end;
  MYSQL_MANAGER = st_mysql_manager;
  PMYSQL_MANAGER = ^MYSQL_MANAGER;

Type
  TExdendBuffer = function (_para1:pointer; _to:Pchar; length:Pdword):Pchar;