freepascal.compiler/packages/mysql/mysql.pp

unit mysql;

{
  Import unit for the mysql header files.
  Translated form the original mysql.h by Michael Van Canneyt
  ([email protected])
  
}

interface

uses mysql_com;
{$ifdef win32}
Const mysqllib = 'libmysql';
{$else}
Const mysqllib = 'mysqlclient';
{$endif}

{$ifndef win32}
{$linklib c}
{$linklib m}
{ You need to specify the path to libgcc on the command line. }
{ On my machine this is '-k-L/usr/lib/gcc-lib/i486-linux/2.7.2.1' }
{$linklib gcc}
{$endif}


{ All is 4-byte aligned on my machine. }
{$packrecords 4}

type 
   my_bool = byte;
   gptr   = pchar;
   Socket = Longint;
   PCardinal = ^Cardinal;    

{$ifdef linux}    
Var
  mysql_port : cardinal; external name 'mysql_port';
  mysql_unix_port : pchar; external name 'mysql_unix_port';
{$endif}


{
#define IS_PRI_KEY(n)	((n) & PRI_KEY_FLAG)
#define IS_NOT_NULL(n)	((n) & NOT_NULL_FLAG)
#define IS_BLOB(n)	((n) & BLOB_FLAG)
#define IS_NUM(t)	((t) <= FIELD_TYPE_INT24)
}
Type
st_mysql_field = record 
  name : Pchar;			{ Name of column }
  table : pchar;		{ Table of column if column was a field }
  def: pchar;			{ Default value (set by mysql_list_fields) }
  ftype : enum_field_types;	{ Type of field. See mysql_com.h for types }
  length : cardinal;		{ Width of column }
  max_length : cardinal;	{ Max width of selected set }
  flags : cardinal;		{ Div flags }
  decimals : cardinal;	{ Number of decimals in field }
end;
TMYSQL_FIELD = st_mysql_field;
PMYSQL_FIELD = ^TMYSQL_FIELD;

TMYSQL_ROW = PPchar;		 { return data as array of strings }
TMYSQL_FIELD_OFFSET = cardinal;  { offset to current field }

PST_MYSQL_Rows = ^st_mysql_rows;
st_mysql_rows = Record
  next : pst_mysql_rows;		{ list of rows }
  Data : TMYSQL_ROW;
end;
TMYSQL_ROWS = st_mysql_rows;
PMYSQL_ROWS = ^TMYSQL_ROWS;


TMYSQL_ROW_OFFSET = PMYSQL_ROWS;	{ offset to current row }

st_mysql_data  = record
  rows, fields : cardinal;
  data : PMYSQL_ROWS;
  alloc : TMEM_ROOT;
end;

TMYSQL_DATA = st_mysql_data;
PMYSQL_DATA = ^TMYSQL_DATA;

mysql_status = (MYSQL_STATUS_READY,
                MYSQL_STATUS_GET_RESULT,
                MYSQL_STATUS_USE_RESULT);


st_mysql = Record
  net : TNET;			{ Communication parameters }
  host,user,passwd,unix_socket,server_version,host_info, info,db : pchar;
  port,client_flag,server_capabilities : cardinal;
  protocol_version : cardinal;
  field_count : cardinal;
  thread_id : cardinal;		{ Id for connection in server }
  affected_rows : cardinal;
  insert_id : cardinal;		{ id if insert on table with NEXTNR }
  extra_info : cardinal;		{ Used by mysqlshow }
  status : mysql_status;
  fields : PMYSQL_FIELD;
  field_alloc : TMEM_ROOT;
  free_me : my_bool;		{ If free in mysql_close }
  reconnect : my_bool;		{ set to 1 if automatic reconnect }
end;
TMYSQL = st_mysql;
PMYSQL = ^TMYSQL;


st_mysql_res = record
  row_count : cardinal;
  field_count, current_field : cardinal;
  fields :         PMYSQL_FIELD;
  data :           PMYSQL_DATA;
  data_cursor :    PMYSQL_ROWS;
  field_alloc :    TMEM_ROOT;
  row :            TMYSQL_ROW;			{ If unbuffered read }
  current_row :    TMYSQL_ROW;		{ buffer to current row }
  lengths :        pcardinal;		{ column lengths of current row }
  handle :         PMYSQL;		{ for unbuffered reads }
  eof :            my_bool;			{ Used my mysql_fetch_row }
end;
TMYSQL_RES  = st_mysql_res;
PMYSQL_RES  = ^TMYSQL_RES;


{ Translated Macros }

Function mysql_num_rows (res : PMYSQL_RES) : Cardinal;
Function mysql_num_fields(res : PMYSQL_RES) : Cardinal;
Function mysql_eof(res : PMYSQL_RES) : my_bool; 
Function mysql_fetch_field_direct(res : PMYSQL_RES; fieldnr : Cardinal) : TMYSQL_FIELD; 
Function mysql_fetch_fields(res : PMYSQL_RES) : PMYSQL_FIELD; 
Function mysql_row_tell(res : PMYSQL_RES) : PMYSQL_ROWS;
Function mysql_field_tell(res : PMYSQL_RES) : Cardinal;
Function mysql_affected_rows(mysql : PMYSQL): Cardinal; 
Function mysql_insert_id(mysql : PMYSQL): Cardinal; 
Function mysql_errno(mysql : PMYSQL) : Cardinal;
Function mysql_info(mysql : PMYSQL): Pchar;
Function mysql_reload(mysql : PMYSQL) : Longint; 
Function mysql_thread_id(mysql : PMYSQL) : Cardinal; 
Function mysql_error(mysql : PMYSQL) : pchar; 

{ Original functions }

Function mysql_connect (mysql : PMYSQL; host,user,passwd: pchar) : PMYSQL; cdecl;
Function mysql_real_connect (mysql : PMYSQL; const host,user,passwd : pchar;
				   port : cardinal;
				   unix_socket : pchar;
				   clientflag : cardinal) : PMYSQL;cdecl;
				   
Function mysql_close(sock : PMYSQL) : longint; cdecl;
Function mysql_select_db(MYSQL : PMYSQL; db : Pchar) : longint; cdecl;
Function mysql_query(mysql : PMYSQL; q : pchar) : longint; cdecl;
Function mysql_real_query(mysql : PMYSQL; q : Pchar; length : longint) : longint; cdecl;
Function mysql_create_db(mysql : PMYSQL; db : pchar) : longint; cdecl;
Function mysql_drop_db(mysql : PMYSQL; DB : Pchar) : longint; cdecl;
Function mysql_shutdown(mysql : PMYSQL) : longint; cdecl;
Function mysql_dump_debug_info(mysql : PMYSQL) : longint; cdecl;
Function mysql_refresh(mysql : PMYSQL; refresh_options : cardinal) : longint; cdecl;
Function mysql_kill(mysql : PMYSQL; pid : Cardinal) : longint; cdecl;
Function mysql_stat(mysql : PMYSQL) : Pchar; cdecl;
Function mysql_get_server_info(mysql : PMYSQL) : pchar; cdecl;
Function mysql_get_client_info : pchar; cdecl;
Function mysql_get_host_info(mysql : PMYSQL) : pchar; cdecl;
Function mysql_get_proto_info(mysql : PMYSQL) : Cardinal; cdecl;
Function mysql_list_dbs(mysql : PMYSQL;wild : Pchar) : PMYSQL_RES; cdecl;
Function  mysql_list_tables(mysql : PMYSQL;Wild : Pchar) : PMYSQL_RES; cdecl;
Function  mysql_list_fields(mysql : PMYSQL; table,wild : pchar) : PMYSQL_RES; cdecl;
Function  mysql_list_processes(mysql : PMYSQL) : PMYSQL_RES; cdecl;
Function  mysql_store_result(mysql : PMYSQL) : PMYSQL_RES; cdecl;
Function  mysql_use_result(mysql : PMYSQL) : PMYSQL_RES; cdecl;
Procedure mysql_free_result(res : PMYSQL_RES);cdecl;
Procedure mysql_data_seek(mysql : PMYSQL_RES; offs : cardinal);cdecl;
Function mysql_row_seek(mysql : PMYSQL_RES; Offs: TMYSQL_ROW_OFFSET): TMYSQL_ROW_OFFSET; cdecl;
Function mysql_field_seek(musql : PMYSQL_RES;offs : TMYSQL_FIELD_OFFSET): TMYSQL_FIELD_OFFSET; cdecl;
Function mysql_fetch_row(mysql : PMYSQL_RES) : TMYSQL_ROW; cdecl;
Function mysql_fetch_lengths(mysql : PMYSQL_RES) : PCardinal; cdecl;
Function mysql_fetch_field(handle : PMYSQL_RES) : PMYSQL_FIELD; cdecl;
Function mysql_escape_string(escto,escfrom : pchar; length : Cardinal) : cardinal; cdecl;
Procedure mysql_debug(debug : pchar);cdecl;

implementation


function mysql_connect (mysql : PMYSQL; host,user,passwd: pchar) : PMYSQL;cdecl; external mysqllib name 'mysql_connect';
function mysql_real_connect (mysql : PMYSQL; const host,user,passwd : pchar;
				   port : cardinal;
				   unix_socket : pchar;
				   clientflag : cardinal) : PMYSQL;cdecl; external mysqllib;
				   
function mysql_close(sock : PMYSQL) : longint ;cdecl; external mysqllib name 'mysql_close';
function mysql_select_db(MYSQL : PMYSQL; db : Pchar) : longint;cdecl; external mysqllib name 'mysql_select_db';
function mysql_query(mysql : PMYSQL; q : pchar) : longint;cdecl; external mysqllib name 'mysql_query';
function mysql_real_query(mysql : PMYSQL; q : Pchar; length : longint) : longint;cdecl; external mysqllib name 'mysql_real_query';
function mysql_create_db(mysql : PMYSQL; db : pchar) : longint;cdecl; external mysqllib name 'mysql_create_db';
Function mysql_drop_db(mysql : PMYSQL; DB : Pchar) : longint;cdecl; external mysqllib name 'mysql_drop_db';
Function mysql_shutdown(mysql : PMYSQL) : longint;cdecl; external mysqllib name 'mysql_shutdown';
Function mysql_dump_debug_info(mysql : PMYSQL) : longint;cdecl; external mysqllib name 'mysql_dump_debug_info';
Function mysql_refresh(mysql : PMYSQL; refresh_options : cardinal) : longint;cdecl; external mysqllib name 'mysql_refresh';
Function mysql_kill(mysql : PMYSQL; pid : Cardinal) : longint;cdecl; external mysqllib name 'mysql_kill';
Function mysql_stat(mysql : PMYSQL) : Pchar;cdecl; external mysqllib name 'mysql_stat';
Function mysql_get_server_info(mysql : PMYSQL) : pchar;cdecl; external mysqllib name 'mysql_get_server_info';
Function mysql_get_client_info : pchar;cdecl; external mysqllib;
Function mysql_get_host_info(mysql : PMYSQL) : pchar;cdecl; external mysqllib name 'mysql_get_host_info';
Function mysql_get_proto_info(mysql : PMYSQL) : Cardinal;cdecl; external mysqllib name 'mysql_get_proto_info';
Function mysql_list_dbs(mysql : PMYSQL;wild : Pchar) : PMYSQL_RES;cdecl; external mysqllib name 'mysql_list_dbs';
Function mysql_list_tables(mysql : PMYSQL;Wild : Pchar) : PMYSQL_RES;cdecl; external mysqllib name 'mysql_list_tables';
Function mysql_list_fields(mysql : PMYSQL; table,wild : pchar) : PMYSQL_RES;cdecl; external mysqllib name 'mysql_list_fields';
Function mysql_list_processes(mysql : PMYSQL) : PMYSQL_RES;cdecl; external mysqllib name 'mysql_list_processes';
Function mysql_store_result(mysql : PMYSQL) : PMYSQL_RES;cdecl; external mysqllib name 'mysql_store_result';
Function mysql_use_result(mysql : PMYSQL) : PMYSQL_RES;cdecl; external mysqllib name 'mysql_use_result';
Procedure mysql_free_result(res : PMYSQL_RES);cdecl; external mysqllib name 'mysql_free_result';
Procedure mysql_data_seek(mysql : PMYSQL_RES; offs : cardinal);cdecl; external mysqllib name 'mysql_data_seek';
Function mysql_row_seek(mysql : PMYSQL_RES; Offs: TMYSQL_ROW_OFFSET): TMYSQL_ROW_OFFSET;cdecl; external mysqllib name 'mysql_row_seek';
Function mysql_field_seek(musql : PMYSQL_RES;offs : TMYSQL_FIELD_OFFSET): TMYSQL_FIELD_OFFSET;cdecl; external mysqllib name 'mysql_field_seek';
function mysql_fetch_row(mysql : PMYSQL_RES) : TMYSQL_ROW;cdecl; external mysqllib name 'mysql_fetch_row';
function mysql_fetch_lengths(mysql : PMYSQL_RES) : PCardinal;cdecl; external mysqllib name 'mysql_fetch_lengths';
function mysql_fetch_field(handle : PMYSQL_RES) : PMYSQL_FIELD;cdecl; external mysqllib name 'mysql_fetch_field';
Function mysql_escape_string(escto,escfrom : pchar; length : Cardinal) : cardinal;cdecl; external mysqllib name 'mysql_escape_string';
Procedure mysql_debug(debug : pchar);cdecl; external mysqllib name 'mysql_debug';

Function  mysql_error(mysql : PMYSQL) : pchar;

begin
 mysql_error:=mysql^.net.last_error
end;

Function mysql_num_rows (res : PMYSQL_RES) : Cardinal;

begin
  mysql_num_rows:=res^.row_count
end;

Function mysql_num_fields(res : PMYSQL_RES) : Cardinal;

begin
  mysql_num_fields:=res^.field_count
end;

Function mysql_eof(res : PMYSQL_RES) : my_bool;

begin
  mysql_eof:=res^.eof
end;

Function mysql_fetch_field_direct(res : PMYSQL_RES; fieldnr : Cardinal) : TMYSQL_FIELD;

begin
  mysql_fetch_field_direct:=res^.fields[fieldnr];
end;

Function mysql_fetch_fields(res : PMYSQL_RES) : PMYSQL_FIELD;

begin
 mysql_fetch_fields:=res^.fields
end;

Function mysql_row_tell(res : PMYSQL_RES) : PMYSQL_ROWS;

begin
  mysql_row_tell:=res^.data_cursor
end;

Function mysql_field_tell(res : PMYSQL_RES) : Cardinal;

begin
  mysql_field_tell:=res^.current_field
end;

Function mysql_affected_rows(mysql : PMYSQL): Cardinal;

begin
  mysql_affected_rows:=mysql^.affected_rows
end;

Function mysql_insert_id(mysql : PMYSQL): Cardinal;

begin
  mysql_insert_id:=mysql^.insert_id
end;

Function mysql_errno(mysql : PMYSQL) : Cardinal;

begin
  mysql_errno:=mysql^.net.last_errno
end;

Function mysql_info(mysql : PMYSQL): Pchar;

begin
  mysql_info:=mysql^.info
end;

Function mysql_reload(mysql : PMYSQL) : Longint;

begin
   mysql_reload:=mysql_refresh(mysql,REFRESH_GRANT)
end;

Function mysql_thread_id(mysql : PMysql) : Cardinal;

begin
  mysql_thread_id:=mysql^.thread_id
end;

end.