freepascal.compiler/packages/gtk2/src/glib/gerror.inc

// included by glib2.pas

{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}

//------------------------------------------------------------------------------

{$IFDEF read_interface_types}
    PPGError = ^PGError;
    PGError  = ^TGError;
    TGError  = record
            domain  : TGQuark;
            code    : gint;
            message : Pgchar;
         end;
{$ENDIF read_interface_types}

{$IFDEF read_interface_rest}
{$IFNDEF KYLIX}
    function  g_error_new(domain:TGQuark; code:gint; format:Pgchar; args:array of const):PGError;cdecl;overload;external gliblib name 'g_error_new_literal';
    function  g_error_new(domain:TGQuark; code:gint; format:Pgchar):PGError;cdecl;overload;varargs;external gliblib name 'g_error_new_literal';
{$ELSE}
    function  g_error_new(domain:TGQuark; code:gint; format:Pgchar):PGError;varargs;cdecl;external gliblib name 'g_error_new_literal';
{$ENDIF}

    function  g_error_new_literal(domain:TGQuark; code:gint; message:Pgchar):PGError;cdecl;external gliblib name 'g_error_new_literal';

    procedure g_error_free(error:PGError);cdecl;external gliblib name 'g_error_free';

    function  g_error_copy(error:PGError):PGError;cdecl;external gliblib name 'g_error_copy';

    function  g_error_matches(error:PGError; domain:TGQuark; code:gint):gboolean;cdecl;external gliblib name 'g_error_matches';

    { if (err)  err = g_error_new(domain, code, format, ...), also has
      some sanity checks.
    }

{$IFNDEF KYLIX}
    procedure g_set_error  (err: PPGError; domain: TGQuark; code: gint; format: Pgchar; args: array of const);cdecl;overload;external gliblib name 'g_set_error';
    procedure g_set_error  (err: PPGError; domain: TGQuark; code: gint; format: Pgchar);cdecl;overload;varargs;external gliblib name 'g_set_error';
{$ELSE}
    procedure g_set_error  (err: PPGError; domain: TGQuark; code: gint; format: Pgchar);varargs;cdecl;external gliblib name 'g_set_error';
{$ENDIF}

    { if dest then dest := src; also has some sanity checks. }
    procedure g_propagate_error(dest:PPGError; src:PGError);cdecl;external gliblib name 'g_propagate_error';

    { if (err &&  err) then g_error_free( err);  err = NULL;   }
    procedure g_clear_error(err:PPGError);cdecl;external gliblib name 'g_clear_error';
{$ENDIF read_interface_rest}