{* Licensed to the Apache Software Foundation (ASF) under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The ASF licenses this file to You under the Apache License, Version 2.0
 * (the "License"); you may not use this file except in compliance with
 * the License.  You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *}

{$ifndef APR_POOLS_H}
  {$define APR_POOLS_H}

{**
 * @file apr_pools.h
 * @brief APR memory allocation
 *
 * Resource allocation routines...
 *
 * designed so that we don't have to keep track of EVERYTHING so that
 * it can be explicitly freed later (a fundamentally unsound strategy ---
 * particularly in the presence of die()).
 *
 * Instead, we maintain pools, and allocate items (both memory and I/O
 * handlers) from the pools --- currently there are two, one for
 * per-transaction info, and one for config info.  When a transaction is
 * over, we can delete everything in the per-transaction apr_pool_t without
 * fear, and without thinking too hard about it either.
 *
 * Note that most operations on pools are not thread-safe: a single pool
 * should only be accessed by a single thread at any given time. The one
 * exception to this rule is creating a subpool of a given pool: one or more
 * threads can safely create subpools at the same time that another thread
 * accesses the parent pool.
 *}

//#include "apr.h"
//#include "apr_errno.h"
//#include "apr_general.h" /* for APR_STRINGIFY */
//#define APR_WANT_MEMFUNC /**< for no good reason? */
//#include "apr_want.h"

(**
 * @defgroup apr_pools Memory Pool Functions
 * @ingroup APR 
 * @{
 *)

//** The fundamental pool type */
//typedef struct apr_pool_t apr_pool_t;
{fpc -> apr_pool_t is found in apr-X.X.X/memory/unix/apr_pools.c , not in header files}
type
  apr_pool_t = record end;
  Papr_pool_t = ^apr_pool_t;
  PPapr_pool_t = ^Papr_pool_t;

{**
 * Declaration helper macro to construct apr_foo_pool_get()s.
 *
 * This standardized macro is used by opaque (APR) data types to return
 * the apr_pool_t that is associated with the data type.
 *
 * APR_POOL_DECLARE_ACCESSOR() is used in a header file to declare the
 * accessor function. A typical usage and result would be:
 * <pre>
 *    APR_POOL_DECLARE_ACCESSOR(file);
 * becomes:
 *    APR_DECLARE(apr_pool_t *) apr_file_pool_get(apr_file_t *ob);
 * </pre>
 * @remark Doxygen unwraps this macro (via doxygen.conf) to provide 
 * actual help for each specific occurance of apr_foo_pool_get.
 * @remark the linkage is specified for APR. It would be possible to expand
 *       the macros to support other linkages.
 *}
//#define APR_POOL_DECLARE_ACCESSOR(type) \
//    APR_DECLARE(apr_pool_t *) apr_##type##_pool_get \
//        (const apr_##type##_t *the##type)

{**
 * Implementation helper macro to provide apr_foo_pool_get()s.
 *
 * In the implementation, the APR_POOL_IMPLEMENT_ACCESSOR() is used to
 * actually define the function. It assumes the field is named "pool".
 *}
//#define APR_POOL_IMPLEMENT_ACCESSOR(type) \
//    APR_DECLARE(apr_pool_t *) apr_##type##_pool_get \
//            (const apr_##type##_t *the##type) \
//        { return the##type->pool; }


{**
 * Pool debug levels
 *
 * <pre>
 * | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
 * ---------------------------------
 * |   |   |   |   |   |   |   | x |  General debug code enabled (useful in
 *                                    combination with --with-efence).
 *
 * |   |   |   |   |   |   | x |   |  Verbose output on stderr (report
 *                                    CREATE, CLEAR, DESTROY).
 *
 * |   |   |   | x |   |   |   |   |  Verbose output on stderr (report
 *                                    PALLOC, PCALLOC).
 *
 * |   |   |   |   |   | x |   |   |  Lifetime checking. On each use of a
 *                                    pool, check its lifetime.  If the pool
 *                                    is out of scope, abort().
 *                                    In combination with the verbose flag
 *                                    above, it will output LIFE in such an
 *                                    event prior to aborting.
 *
 * |   |   |   |   | x |   |   |   |  Pool owner checking.  On each use of a
 *                                    pool, check if the current thread is the
 *                                    pools owner.  If not, abort().  In
 *                                    combination with the verbose flag above,
 *                                    it will output OWNER in such an event
 *                                    prior to aborting.  Use the debug
 *                                    function apr_pool_owner_set() to switch
 *                                    a pools ownership.
 *
 * When no debug level was specified, assume general debug mode.
 * If level 0 was specified, debugging is switched off
 * </pre>
 *}
{#if defined(APR_POOL_DEBUG)
/* If APR_POOL_DEBUG is blank, we get 1; if it is a number, we get -1. */
#if (APR_POOL_DEBUG - APR_POOL_DEBUG -1 == 1)
#undef APR_POOL_DEBUG
#define APR_POOL_DEBUG 1
#endif
#else}
const
   APR_POOL_DEBUG = 0;
//#endif

//** the place in the code where the particular function was called */
//#define APR_POOL__FILE_LINE__ __FILE__ ":" APR_STRINGIFY(__LINE__)


//** A function that is called when allocation fails. */
//typedef int (*apr_abortfunc_t)(int retcode);
type
  apr_abortfunc_t = function (retcode: Integer): Integer;

{*
 * APR memory structure manipulators (pools, tables, and arrays).
 *}

{*
 * Initialization
 *}

{**
 * Setup all of the internal structures required to use pools
 * @remark Programs do NOT need to call this directly.  APR will call this
 *      automatically from apr_initialize.
 * @internal
 *}
//APR_DECLARE(apr_status_t) apr_pool_initialize(void);
function apr_pool_initialize: apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_initialize' + LibSuff0;

{**
 * Tear down all of the internal structures required to use pools
 * @remark Programs do NOT need to call this directly.  APR will call this
 *      automatically from apr_terminate.
 * @internal
 *}
//APR_DECLARE(void) apr_pool_terminate(void);
procedure apr_pool_terminate;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_terminate' + LibSuff0;


{*
 * Pool creation/destruction
 *}

{$include apr_allocator.inc}

{**
 * Create a new pool.
 * @param newpool The pool we have just created.
 * @param parent The parent pool.  If this is NULL, the new pool is a root
 *        pool.  If it is non-NULL, the new pool will inherit all
 *        of its parent pool's attributes, except the apr_pool_t will
 *        be a sub-pool.
 * @param abort_fn A function to use if the pool cannot allocate more memory.
 * @param allocator The allocator to use with the new pool.  If NULL the
 *        allocator of the parent pool will be used.
 * @remark This function is thread-safe, in the sense that multiple threads
 *         can safely create subpools of the same parent pool concurrently.
 *         Similarly, a subpool can be created by one thread at the same
 *         time that another thread accesses the parent pool.
 *}
//APR_DECLARE(apr_status_t) apr_pool_create_ex(apr_pool_t **newpool,
//                                             apr_pool_t *parent,
//                                             apr_abortfunc_t abort_fn,
//                                             apr_allocator_t *allocator);
function apr_pool_create_ex(newpool: PPapr_pool_t;
                            parent: Papr_pool_t;
                            abort_fn: apr_abortfunc_t;
                            allocator: Papr_allocator_t): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_create_ex' + LibSuff16;

{**
 * Create a new pool.
 * @deprecated @see apr_pool_create_unmanaged_ex.
 *}
//APR_DECLARE(apr_status_t) apr_pool_create_core_ex(apr_pool_t **newpool,
//                                                  apr_abortfunc_t abort_fn,
//                                                  apr_allocator_t *allocator);
function apr_pool_create_core_ex(newpool: PPapr_pool_t;
                                 abort_fn: apr_abortfunc_t;
                                 allocator: Papr_allocator_t): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_create_core_ex' + LibSuff12;

{**
 * Create a new unmanaged pool.
 * @param newpool The pool we have just created.
 * @param abort_fn A function to use if the pool cannot allocate more memory.
 * @param allocator The allocator to use with the new pool.  If NULL a
 *        new allocator will be crated with newpool as owner.
 * @remark An unmanaged pool is a special pool without a parent; it will
 *         NOT be destroyed upon apr_terminate.  It must be explicitly
 *         destroyed by calling apr_pool_destroy, to prevent memory leaks.
 *         Use of this function is discouraged, think twice about whether
 *         you really really need it.
 *}
//APR_DECLARE(apr_status_t) apr_pool_create_unmanaged_ex(apr_pool_t **newpool,
//                                                   apr_abortfunc_t abort_fn,
//                                                   apr_allocator_t *allocator);
function apr_pool_create_unmanaged_ex(newpool: PPapr_pool_t;
                                      abort_fn: apr_abortfunc_t;
                                      allocator: Papr_allocator_t): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_create_unmanaged_ex' + LibSuff12;

{**
 * Debug version of apr_pool_create_ex.
 * @param newpool @see apr_pool_create.
 * @param parent @see apr_pool_create.
 * @param abort_fn @see apr_pool_create.
 * @param allocator @see apr_pool_create.
 * @param file_line Where the function is called from.
 *        This is usually APR_POOL__FILE_LINE__.
 * @remark Only available when APR_POOL_DEBUG is defined.
 *         Call this directly if you have you apr_pool_create_ex
 *         calls in a wrapper function and wish to override
 *         the file_line argument to reflect the caller of
 *         your wrapper function.  If you do not have
 *         apr_pool_create_ex in a wrapper, trust the macro
 *         and don't call apr_pool_create_ex_debug directly.
 *}
//APR_DECLARE(apr_status_t) apr_pool_create_ex_debug(apr_pool_t **newpool,
//                                                   apr_pool_t *parent,
//                                                   apr_abortfunc_t abort_fn,
//                                                   apr_allocator_t *allocator,
//                                                   const char *file_line);
function apr_pool_create_ex_debug(newpool: PPapr_pool_t;
                                  parent: Papr_pool_t;
                                  abort_fn: apr_abortfunc_t;
                                  allocator: Papr_allocator_t;
                                  const file_line: PChar): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_create_ex_debug' + LibSuff20;

//#if APR_POOL_DEBUG
//#define apr_pool_create_ex(newpool, parent, abort_fn, allocator)  \
//    apr_pool_create_ex_debug(newpool, parent, abort_fn, allocator, \
//                             APR_POOL__FILE_LINE__)
//#endif

{**
 * Debug version of apr_pool_create_core_ex.
 * @deprecated @see apr_pool_create_unmanaged_ex_debug.
 *}
//APR_DECLARE(apr_status_t) apr_pool_create_core_ex_debug(apr_pool_t **newpool,
//                                                   apr_abortfunc_t abort_fn,
//                                                   apr_allocator_t *allocator,
//                                                   const char *file_line);
function apr_pool_create_core_ex_debug(newpool: PPapr_pool_t;
                                       abort_fn: apr_abortfunc_t;
                                       allocator: Papr_allocator_t;
                                       const file_line: PChar): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_create_core_ex_debug' + LibSuff16;

{**
 * Debug version of apr_pool_create_unmanaged_ex.
 * @param newpool @see apr_pool_create_unmanaged.
 * @param abort_fn @see apr_pool_create_unmanaged.
 * @param allocator @see apr_pool_create_unmanaged.
 * @param file_line Where the function is called from.
 *        This is usually APR_POOL__FILE_LINE__.
 * @remark Only available when APR_POOL_DEBUG is defined.
 *         Call this directly if you have you apr_pool_create_unmanaged_ex
 *         calls in a wrapper function and wish to override
 *         the file_line argument to reflect the caller of
 *         your wrapper function.  If you do not have
 *         apr_pool_create_core_ex in a wrapper, trust the macro
 *         and don't call apr_pool_create_core_ex_debug directly.
 *}
//APR_DECLARE(apr_status_t) apr_pool_create_unmanaged_ex_debug(apr_pool_t **newpool,
//                                                   apr_abortfunc_t abort_fn,
//                                                   apr_allocator_t *allocator,
//                                                   const char *file_line);
function apr_pool_create_unmanaged_ex_debug(newpool: PPapr_pool_t;
                                            abort_fn: apr_abortfunc_t;
                                            allocator: Papr_allocator_t;
                                            const file_line: PChar): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_create_unmanaged_ex_debug' + LibSuff16;

//#if APR_POOL_DEBUG
//#define apr_pool_create_core_ex(newpool, abort_fn, allocator)  \
//    apr_pool_create_unmanaged_ex_debug(newpool, abort_fn, allocator, \
//                                  APR_POOL__FILE_LINE__)
//
//#define apr_pool_create_unmanaged_ex(newpool, abort_fn, allocator)  \
//    apr_pool_create_unmanaged_ex_debug(newpool, abort_fn, allocator, \
//                                  APR_POOL__FILE_LINE__)
//
//#endif

{**
 * Create a new pool.
 * @param newpool The pool we have just created.
 * @param parent The parent pool.  If this is NULL, the new pool is a root
 *        pool.  If it is non-NULL, the new pool will inherit all
 *        of its parent pool's attributes, except the apr_pool_t will
 *        be a sub-pool.
 * @remark This function is thread-safe, in the sense that multiple threads
 *         can safely create subpools of the same parent pool concurrently.
 *         Similarly, a subpool can be created by one thread at the same
 *         time that another thread accesses the parent pool.
 *}
//#if defined(DOXYGEN)
//APR_DECLARE(apr_status_t) apr_pool_create(apr_pool_t **newpool,
//                                          apr_pool_t *parent);
//#else
//#if APR_POOL_DEBUG
//#define apr_pool_create(newpool, parent) \
//    apr_pool_create_ex_debug(newpool, parent, NULL, NULL, \
//                             APR_POOL__FILE_LINE__)
//#else
//#define apr_pool_create(newpool, parent) \
//    apr_pool_create_ex(newpool, parent, NULL, NULL)
//#endif
//#endif

{**
 * Create a new pool.
 * @param newpool The pool we have just created.
 *}
//#if defined(DOXYGEN)
//APR_DECLARE(apr_status_t) apr_pool_create_core(apr_pool_t **newpool);
//APR_DECLARE(apr_status_t) apr_pool_create_unmanaged(apr_pool_t **newpool);
//#else
//#if APR_POOL_DEBUG
//#define apr_pool_create_core(newpool) \
//    apr_pool_create_unmanaged_ex_debug(newpool, NULL, NULL, \
//                                  APR_POOL__FILE_LINE__)
//#define apr_pool_create_unmanaged(newpool) \
//    apr_pool_create_unmanaged_ex_debug(newpool, NULL, NULL, \
//                                  APR_POOL__FILE_LINE__)
//#else
//#define apr_pool_create_core(newpool) \
//    apr_pool_create_unmanaged_ex(newpool, NULL, NULL)
//#define apr_pool_create_unmanaged(newpool) \
//    apr_pool_create_unmanaged_ex(newpool, NULL, NULL)
//#endif
//#endif

{**
 * Find the pool's allocator
 * @param pool The pool to get the allocator from.
 *}
//APR_DECLARE(apr_allocator_t *) apr_pool_allocator_get(apr_pool_t *pool);
function apr_pool_allocator_get(pool: Papr_pool_t): Papr_allocator_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_allocator_get' + LibSuff4;

{**
 * Clear all memory in the pool and run all the cleanups. This also destroys all
 * subpools.
 * @param p The pool to clear
 * @remark This does not actually free the memory, it just allows the pool
 *         to re-use this memory for the next allocation.
 * @see apr_pool_destroy()
 *}
//APR_DECLARE(void) apr_pool_clear(apr_pool_t *p);
procedure apr_pool_clear(p: Papr_pool_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_clear' + LibSuff4;

{**
 * Debug version of apr_pool_clear.
 * @param p See: apr_pool_clear.
 * @param file_line Where the function is called from.
 *        This is usually APR_POOL__FILE_LINE__.
 * @remark Only available when APR_POOL_DEBUG is defined.
 *         Call this directly if you have you apr_pool_clear
 *         calls in a wrapper function and wish to override
 *         the file_line argument to reflect the caller of
 *         your wrapper function.  If you do not have
 *         apr_pool_clear in a wrapper, trust the macro
 *         and don't call apr_pool_destroy_clear directly.
 *}
//APR_DECLARE(void) apr_pool_clear_debug(apr_pool_t *p,
//                                       const char *file_line);
procedure apr_pool_clear_debug(p: Papr_pool_t; const file_line: PChar);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_clear_debug' + LibSuff8;

//#if APR_POOL_DEBUG
//#define apr_pool_clear(p) \
//    apr_pool_clear_debug(p, APR_POOL__FILE_LINE__)
//#endif

{**
 * Destroy the pool. This takes similar action as apr_pool_clear() and then
 * frees all the memory.
 * @param p The pool to destroy
 * @remark This will actually free the memory
 *}
//APR_DECLARE(void) apr_pool_destroy(apr_pool_t *p);
procedure apr_pool_destroy(p: Papr_pool_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_destroy' + LibSuff4;

{**
 * Debug version of apr_pool_destroy.
 * @param p See: apr_pool_destroy.
 * @param file_line Where the function is called from.
 *        This is usually APR_POOL__FILE_LINE__.
 * @remark Only available when APR_POOL_DEBUG is defined.
 *         Call this directly if you have you apr_pool_destroy
 *         calls in a wrapper function and wish to override
 *         the file_line argument to reflect the caller of
 *         your wrapper function.  If you do not have
 *         apr_pool_destroy in a wrapper, trust the macro
 *         and don't call apr_pool_destroy_debug directly.
 *}
//APR_DECLARE(void) apr_pool_destroy_debug(apr_pool_t *p,
//                                         const char *file_line);
procedure apr_pool_destroy_debug(p: Papr_pool_t; const file_line: PChar);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_destroy_debug' + LibSuff8;

//#if APR_POOL_DEBUG
//#define apr_pool_destroy(p) \
//    apr_pool_destroy_debug(p, APR_POOL__FILE_LINE__)
//#endif


{*
 * Memory allocation
 *}

{**
 * Allocate a block of memory from a pool
 * @param p The pool to allocate from
 * @param size The amount of memory to allocate
 * @return The allocated memory
 *}
//APR_DECLARE(void *) apr_palloc(apr_pool_t *p, apr_size_t size);
function apr_palloc(p: Papr_pool_t; size: apr_size_t): Pointer;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_palloc' + LibSuff8;

{**
 * Debug version of apr_palloc
 * @param p See: apr_palloc
 * @param size See: apr_palloc
 * @param file_line Where the function is called from.
 *        This is usually APR_POOL__FILE_LINE__.
 * @return See: apr_palloc
 *}
//APR_DECLARE(void *) apr_palloc_debug(apr_pool_t *p, apr_size_t size,
//                                     const char *file_line);
function apr_palloc_debug(p: Papr_pool_t; size: apr_size_t;
                          const file_line: PChar): Pointer;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_palloc_debug' + LibSuff12;

//#if APR_POOL_DEBUG
//#define apr_palloc(p, size) \
//    apr_palloc_debug(p, size, APR_POOL__FILE_LINE__)
//#endif

{**
 * Allocate a block of memory from a pool and set all of the memory to 0
 * @param p The pool to allocate from
 * @param size The amount of memory to allocate
 * @return The allocated memory
 *}
//#if defined(DOXYGEN)
//APR_DECLARE(void *) apr_pcalloc(apr_pool_t *p, apr_size_t size);
//#elif !APR_POOL_DEBUG
//#define apr_pcalloc(p, size) memset(apr_palloc(p, size), 0, size)
//#endif
function apr_pcalloc(p: Papr_pool_t; size: apr_size_t): Pointer;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pcalloc' + LibSuff8;

{**
 * Debug version of apr_pcalloc
 * @param p See: apr_pcalloc
 * @param size See: apr_pcalloc
 * @param file_line Where the function is called from.
 *        This is usually APR_POOL__FILE_LINE__.
 * @return See: apr_pcalloc
 *}
//APR_DECLARE(void *) apr_pcalloc_debug(apr_pool_t *p, apr_size_t size,
//                                      const char *file_line);
function apr_pcalloc_debug(p: Papr_pool_t; size: apr_size_t;
                           const file_line: PChar): Pointer;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pcalloc_debug' + LibSuff12;

//#if APR_POOL_DEBUG
//#define apr_pcalloc(p, size) \
//    apr_pcalloc_debug(p, size, APR_POOL__FILE_LINE__)
//#endif


{*
 * Pool Properties
 *}

{**
 * Set the function to be called when an allocation failure occurs.
 * @remark If the program wants APR to exit on a memory allocation error,
 *      then this function can be called to set the callback to use (for
 *      performing cleanup and then exiting). If this function is not called,
 *      then APR will return an error and expect the calling program to
 *      deal with the error accordingly.
 *}
//APR_DECLARE(void) apr_pool_abort_set(apr_abortfunc_t abortfunc,
//                                     apr_pool_t *pool);
procedure apr_pool_abort_set(abortfunc: apr_abortfunc_t; pool: Papr_pool_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_abort_set' + LibSuff8;

{**
 * Get the abort function associated with the specified pool.
 * @param pool The pool for retrieving the abort function.
 * @return The abort function for the given pool.
 *}
//APR_DECLARE(apr_abortfunc_t) apr_pool_abort_get(apr_pool_t *pool);
function apr_pool_abort_get(pool: Papr_pool_t): apr_abortfunc_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_abort_get' + LibSuff4;

{**
 * Get the parent pool of the specified pool.
 * @param pool The pool for retrieving the parent pool.
 * @return The parent of the given pool.
 *}
//APR_DECLARE(apr_pool_t *) apr_pool_parent_get(apr_pool_t *pool);
function apr_pool_parent_get(pool: Papr_pool_t): Papr_pool_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_parent_get' + LibSuff4;

{**
 * Determine if pool a is an ancestor of pool b.
 * @param a The pool to search
 * @param b The pool to search for
 * @return True if a is an ancestor of b, NULL is considered an ancestor
 *         of all pools.
 * @remark if compiled with APR_POOL_DEBUG, this function will also
 * return true if A is a pool which has been guaranteed by the caller
 * (using apr_pool_join) to have a lifetime at least as long as some
 * ancestor of pool B.
 *}
//APR_DECLARE(int) apr_pool_is_ancestor(apr_pool_t *a, apr_pool_t *b);
function apr_pool_is_ancestor(a, b: Papr_pool_t): Integer;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_is_ancestor' + LibSuff8;

{**
 * Tag a pool (give it a name)
 * @param pool The pool to tag
 * @param tag  The tag
 *}
//APR_DECLARE(void) apr_pool_tag(apr_pool_t *pool, const char *tag);
procedure apr_pool_tag(pool: Papr_pool_t; const tag: PChar);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_tag' + LibSuff8;

{*
 * User data management
 *}

{**
 * Set the data associated with the current pool
 * @param data The user data associated with the pool.
 * @param key The key to use for association
 * @param cleanup The cleanup program to use to cleanup the data (NULL if none)
 * @param pool The current pool
 * @warning The data to be attached to the pool should have a life span
 *          at least as long as the pool it is being attached to.
 *
 *      Users of APR must take EXTREME care when choosing a key to
 *      use for their data.  It is possible to accidentally overwrite
 *      data by choosing a key that another part of the program is using.
 *      Therefore it is advised that steps are taken to ensure that unique
 *      keys are used for all of the userdata objects in a particular pool
 *      (the same key in two different pools or a pool and one of its
 *      subpools is okay) at all times.  Careful namespace prefixing of
 *      key names is a typical way to help ensure this uniqueness.
 *
 *}
//APR_DECLARE(apr_status_t) apr_pool_userdata_set(
//    const void *data,
//    const char *key,
//    apr_status_t (*cleanup)(void *),
//    apr_pool_t *pool);
type
  cleanup_func_t = function(param: Pointer): apr_status_t; cdecl;

function apr_pool_userdata_set(
    const data:pointer;
    const key:Pchar;
    cleanup: cleanup_func_t;
    pool:Papr_pool_t): apr_status_t
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_userdata_set' + LibSuff16;

{**
 * Set the data associated with the current pool
 * @param data The user data associated with the pool.
 * @param key The key to use for association
 * @param cleanup The cleanup program to use to cleanup the data (NULL if none)
 * @param pool The current pool
 * @note same as apr_pool_userdata_set(), except that this version doesn't
 *       make a copy of the key (this function is useful, for example, when
 *       the key is a string literal)
 * @warning This should NOT be used if the key could change addresses by
 *       any means between the apr_pool_userdata_setn() call and a
 *       subsequent apr_pool_userdata_get() on that key, such as if a
 *       static string is used as a userdata key in a DSO and the DSO could
 *       be unloaded and reloaded between the _setn() and the _get().  You
 *       MUST use apr_pool_userdata_set() in such cases.
 * @warning More generally, the key and the data to be attached to the
 *       pool should have a life span at least as long as the pool itself.
 *
 *}
//APR_DECLARE(apr_status_t) apr_pool_userdata_setn(
//    const void *data,
//    const char *key,
//    apr_status_t (*cleanup)(void *),
//    apr_pool_t *pool);
function apr_pool_userdata_setn(
      const data:pointer;
      const key:Pchar;
      cleanup: cleanup_func_t;
      pool:Papr_pool_t): apr_status_t
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_userdata_setn' + LibSuff16;

{**
 * Return the data associated with the current pool.
 * @param data The user data associated with the pool.
 * @param key The key for the data to retrieve
 * @param pool The current pool.
 *}
//APR_DECLARE(apr_status_t) apr_pool_userdata_get(void **data, const char *key,
//                                                apr_pool_t *pool);
function apr_pool_userdata_get(data: PPointer; const key: PChar;
                               pool: Papr_pool_t): apr_status_t;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_userdata_get' + LibSuff12;


(**
 * @defgroup PoolCleanup  Pool Cleanup Functions
 *
 * Cleanups are performed in the reverse order they were registered.  That is:
 * Last In, First Out.  A cleanup function can safely allocate memory from
 * the pool that is being cleaned up. It can also safely register additional
 * cleanups which will be run LIFO, directly after the current cleanup
 * terminates.  Cleanups have to take caution in calling functions that
 * create subpools. Subpools, created during cleanup will NOT automatically
 * be cleaned up.  In other words, cleanups are to clean up after themselves.
 *
 * @{
 *)

{**
 * Register a function to be called when a pool is cleared or destroyed
 * @param p The pool register the cleanup with
 * @param data The data to pass to the cleanup function.
 * @param plain_cleanup The function to call when the pool is cleared
 *                      or destroyed
 * @param child_cleanup The function to call when a child process is about
 *                      to exec - this function is called in the child, obviously!
 *}
//APR_DECLARE(void) apr_pool_cleanup_register(
//    apr_pool_t *p,
//    const void *data,
//    apr_status_t (*plain_cleanup)(void *),
//    apr_status_t (*child_cleanup)(void *));
procedure apr_pool_cleanup_register(p: Papr_pool_t;
                                    const data: Pointer;
                                    plain_cleanup, child_cleanup: cleanup_func_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_cleanup_register' + LibSuff16;

{**
 * Register a function to be called when a pool is cleared or destroyed.
 *
 * Unlike apr_pool_cleanup_register which register a cleanup
 * that is called AFTER all subpools are destroyed this function register
 * a function that will be called before any of the subpool is destoryed.
 *
 * @param p The pool register the cleanup with
 * @param data The data to pass to the cleanup function.
 * @param plain_cleanup The function to call when the pool is cleared
 *                      or destroyed
 *}
//APR_DECLARE(void) apr_pool_pre_cleanup_register(
//    apr_pool_t *p,
//    const void *data,
//    apr_status_t (*plain_cleanup)(void *));
procedure apr_pool_pre_cleanup_register(p: Papr_pool_t;
                                        const data: Pointer;
                                        plain_cleanup: cleanup_func_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_pre_cleanup_register' + LibSuff12;

{**
 * Remove a previously registered cleanup function.
 * 
 * The cleanup most recently registered with @a p having the same values of
 * @a data and @a cleanup will be removed.
 *
 * @param p The pool to remove the cleanup from
 * @param data The data of the registered cleanup
 * @param cleanup The function to remove from cleanup
 * @remarks For some strange reason only the plain_cleanup is handled by this
 *          function
 *}
//APR_DECLARE(void) apr_pool_cleanup_kill(apr_pool_t *p, const void *data,
//                                        apr_status_t (*cleanup)(void *));
procedure apr_pool_cleanup_kill(p: Papr_pool_t;
                                const data: Pointer;
                                plain_cleanup: cleanup_func_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_cleanup_kill' + LibSuff12;

{**
 * Replace the child cleanup function of a previously registered cleanup.
 * 
 * The cleanup most recently registered with @a p having the same values of
 * @a data and @a plain_cleanup will have the registered child cleanup
 * function replaced with @a child_cleanup.
 *
 * @param p The pool of the registered cleanup
 * @param data The data of the registered cleanup
 * @param plain_cleanup The plain cleanup function of the registered cleanup
 * @param child_cleanup The function to register as the child cleanup
 *}
//APR_DECLARE(void) apr_pool_child_cleanup_set(
//    apr_pool_t *p,
//    const void *data,
//    apr_status_t (*plain_cleanup)(void *),
//    apr_status_t (*child_cleanup)(void *));
procedure apr_pool_child_cleanup_set(p: Papr_pool_t;
                                    const data: Pointer;
                                    plain_cleanup, child_cleanup: cleanup_func_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_child_cleanup_set' + LibSuff16;

{**
 * Run the specified cleanup function immediately and unregister it.
 *
 * The cleanup most recently registered with @a p having the same values of
 * @a data and @a cleanup will be removed and @a cleanup will be called
 * with @a data as the argument.
 *
 * @param p The pool to remove the cleanup from
 * @param data The data to remove from cleanup
 * @param cleanup The function to remove from cleanup
 *}
//APR_DECLARE(apr_status_t) apr_pool_cleanup_run(
//    apr_pool_t *p,
//    void *data,
//    apr_status_t (*cleanup)(void *));
procedure apr_pool_cleanup_run(p: Papr_pool_t;
                               data: Pointer;
                               cleanup: cleanup_func_t);
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_cleanup_run' + LibSuff12;

{**
 * An empty cleanup function.
 * 
 * Passed to apr_pool_cleanup_register() when no cleanup is required.
 *
 * @param data The data to cleanup, will not be used by this function.
 *}
//APR_DECLARE_NONSTD(apr_status_t) apr_pool_cleanup_null(void *data);
function apr_pool_cleanup_null(data: Pointer): apr_status_t; cdecl;
  external LibAPR name 'apr_pool_cleanup_null';

{**
 * Run all registered child cleanups, in preparation for an exec()
 * call in a forked child -- close files, etc., but *don't* flush I/O
 * buffers, *don't* wait for subprocesses, and *don't* free any
 * memory.
 *}
//APR_DECLARE(void) apr_pool_cleanup_for_exec(void);
procedure apr_pool_cleanup_for_exec;
  {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
  external LibAPR name LibNamePrefix + 'apr_pool_cleanup_for_exec' + LibSuff0;

(** @} *)

(**
 * @defgroup PoolDebug Pool Debugging functions.
 *
 * pools have nested lifetimes -- sub_pools are destroyed when the
 * parent pool is cleared.  We allow certain liberties with operations
 * on things such as tables (and on other structures in a more general
 * sense) where we allow the caller to insert values into a table which
 * were not allocated from the table's pool.  The table's data will
 * remain valid as long as all the pools from which its values are
 * allocated remain valid.
 *
 * For example, if B is a sub pool of A, and you build a table T in
 * pool B, then it's safe to insert data allocated in A or B into T
 * (because B lives at most as long as A does, and T is destroyed when
 * B is cleared/destroyed).  On the other hand, if S is a table in
 * pool A, it is safe to insert data allocated in A into S, but it
 * is *not safe* to insert data allocated from B into S... because
 * B can be cleared/destroyed before A is (which would leave dangling
 * pointers in T's data structures).
 *
 * In general we say that it is safe to insert data into a table T
 * if the data is allocated in any ancestor of T's pool.  This is the
 * basis on which the APR_POOL_DEBUG code works -- it tests these ancestor
 * relationships for all data inserted into tables.  APR_POOL_DEBUG also
 * provides tools (apr_pool_find, and apr_pool_is_ancestor) for other
 * folks to implement similar restrictions for their own data
 * structures.
 *
 * However, sometimes this ancestor requirement is inconvenient --
 * sometimes it's necessary to create a sub pool where the sub pool is
 * guaranteed to have the same lifetime as the parent pool.  This is a
 * guarantee implemented by the *caller*, not by the pool code.  That
 * is, the caller guarantees they won't destroy the sub pool
 * individually prior to destroying the parent pool.
 *
 * In this case the caller must call apr_pool_join() to indicate this
 * guarantee to the APR_POOL_DEBUG code.
 *
 * These functions are only implemented when #APR_POOL_DEBUG is set.
 *
 * @{
 *)
//#if APR_POOL_DEBUG || defined(DOXYGEN)
{$if defined(APR_POOL_DEBUG) or defined(DOXYGEN)}
{**
 * Guarantee that a subpool has the same lifetime as the parent.
 * @param p The parent pool
 * @param sub The subpool
 *}
//APR_DECLARE(void) apr_pool_join(apr_pool_t *p, apr_pool_t *sub);

{**
 * Find a pool from something allocated in it.
 * @param mem The thing allocated in the pool
 * @return The pool it is allocated in
 *}
//APR_DECLARE(apr_pool_t *) apr_pool_find(const void *mem);

{**
 * Report the number of bytes currently in the pool
 * @param p The pool to inspect
 * @param recurse Recurse/include the subpools' sizes
 * @return The number of bytes
 *}
//APR_DECLARE(apr_size_t) apr_pool_num_bytes(apr_pool_t *p, int recurse);

{**
 * Lock a pool
 * @param pool The pool to lock
 * @param flag  The flag
 *}
//APR_DECLARE(void) apr_pool_lock(apr_pool_t *pool, int flag);

(* @} *)

{$else} //* APR_POOL_DEBUG or DOXYGEN */

//#ifdef apr_pool_join
//#undef apr_pool_join
//#endif
//#define apr_pool_join(a,b)
//
//#ifdef apr_pool_lock
//#undef apr_pool_lock
//#endif
//#define apr_pool_lock(pool, lock)
//
{$endif} //* APR_POOL_DEBUG or DOXYGEN */

(** @} *)

{$endif} //* !APR_POOLS_H */