522d4d9dc1
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@933 8e941d3f-bd1b-0410-a28a-d453659cc2b4
90 lines
3.2 KiB
C++
90 lines
3.2 KiB
C++
|
|
(*
|
|
* LibAxl: C Header file to Free Pascal translation.
|
|
* Copyright (C) 2009, Wimpie Nortje <wimpienortje@gmail.com>
|
|
*)
|
|
|
|
(*
|
|
* LibAxl: Another XML library
|
|
* Copyright (C) 2006 Advanced Software Production Line, S.L.
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public License
|
|
* as published by the Free Software Foundation; either version 2.1 of
|
|
* the License, or (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this program; if not, write to the Free
|
|
* Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
* 02111-1307 USA
|
|
*
|
|
* You may find a copy of the license under this software is released
|
|
* at COPYING file. This is LGPL software: you are welcome to
|
|
* develop proprietary applications using this library without any
|
|
* royalty or fee but returning back any change, improvement or
|
|
* addition in the form of source code, project image, documentation
|
|
* patches, etc.
|
|
*
|
|
* For commercial support on build XML enabled solutions contact us:
|
|
*
|
|
* Postal address:
|
|
* Advanced Software Production Line, S.L.
|
|
* Edificio Alius A, Oficina 102,
|
|
* C/ Antonio Suarez Nº 10,
|
|
* Alcalá de Henares 28802 Madrid
|
|
* Spain
|
|
*
|
|
* Email address:
|
|
* info@aspl.es - http://www.aspl.es/xml
|
|
*)
|
|
|
|
(**
|
|
* \addtogroup axl_log_module
|
|
* @{
|
|
*)
|
|
|
|
//axl_bool axl_log_is_enabled ();
|
|
function axl_log_is_enabled :Taxl_bool;
|
|
cdecl;external External_library name 'axl_log_is_enabled';
|
|
|
|
//axl_bool axl_log_color_is_enabled ();
|
|
function axl_log_color_is_enabled :Taxl_bool;
|
|
cdecl;external External_library name 'axl_log_color_is_enabled';
|
|
|
|
//void axl_log_enable (axl_bool value);
|
|
procedure axl_log_enable (value:Taxl_bool);
|
|
cdecl;external External_library name 'axl_log_enable';
|
|
|
|
//void axl_log_color_enable (axl_bool value);
|
|
procedure axl_log_color_enable (value:Taxl_bool);
|
|
cdecl;external External_library name 'axl_log_color_enable';
|
|
|
|
{
|
|
#if defined(SHOW_DEBUG_LOG)
|
|
# define __axl_log axl_log
|
|
#else
|
|
# if defined(AXL_OS_WIN32) && !( defined (__GNUC__) || _MSC_VER >= 1400)
|
|
/* default case where '...' is not supported but log is still
|
|
* disabled */
|
|
# define __axl_log axl_log
|
|
# else
|
|
# define __axl_log(domain, level, message, ...) /* nothing */
|
|
# endif
|
|
#endif
|
|
}
|
|
|
|
//void axl_log (char * domain, AxlDebugLevel level, char * message, ...);
|
|
procedure axl_log (domain:Pchar; level:TAxlDebugLevel; amessage:Pchar; args:array of const);
|
|
cdecl;external External_library name 'axl_log';
|
|
|
|
procedure axl_log(domain:Pchar; level:TAxlDebugLevel; amessage:Pchar);
|
|
cdecl;external External_library name 'axl_log';
|
|
|
|
(* @} *)
|
|
|