fpc/packages/libpcre/src/libpcre2_32.pp

{$mode objfpc}
{$h+}
{$IFNDEF FPC_DOTTEDUNITS}
unit libpcre2_32;
{$ENDIF}

interface

uses
{$IFDEF FPC_DOTTEDUNITS}
  System.CTypes;
{$ELSE}
  ctypes;
{$ENDIF}

const
{$IFDEF LINUX}
  pcrelibname = 'libpcre2-32.so.0';
{$ELSE}
  {$IFDEF windows}
    pcrelibname = 'libpcre32-0.dll'; // As used in Mingw64
  {$ELSE}
    {$ERROR: platform not supported by pcre}
  {$ENDIF}
{$ENDIF}


{$i pcreconsts.inc}

{
  Automatically converted by H2Pas 1.0.0 from pre_pcre_32.h
  The following command line parameters were used:
    -c
    -l
    libpcre2-8
    pre_pcre_32.h
    -C
    -o
    libpcre28.pp
    -P
    -P
    -t
}

{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}

Type
  tsize_t = csize_t;
  PCRE2_SIZE = tsize_t;
  PTsize_t = ^Tsize_t;
  PPTsize_t = ^PTsize_t;
  tuint32_t = cardinal;
  Tint32_t = cuint32;
  Tcint = cint;

  TPCRE2_UCHAR8 = ansichar;
  TPCRE2_SPTR8 = PAnsichar;
  PTPCRE2_UCHAR8 = ^TPCRE2_UCHAR8;
  PCRE2_SPTR8 = TPCRE2_SPTR8;
  PTPCRE2_SPTR8 = PCRE2_SPTR8;
  PPTPCRE2_UCHAR8 = ^PTPCRE2_UCHAR8;
  PPPTPCRE2_UCHAR8 = ^PPTPCRE2_UCHAR8;

  Ppcre2_callout_block_32  = ^Tpcre2_callout_block_32;
  Ppcre2_callout_block = Ppcre2_callout_block_32;

  Ppcre2_callout_enumerate_block_32  = ^Tpcre2_callout_enumerate_block_32;
  Ppcre2_callout_enumerate_block = Ppcre2_callout_enumerate_block_32;

  Ppcre2_code_32  = ^Tpcre2_code_32;
  Ppcre2_code = Ppcre2_code_32;

  Ppcre2_compile_context_32  = ^Tpcre2_compile_context_32;
  Ppcre2_compile_context = Ppcre2_compile_context_32;

  Ppcre2_convert_context_32  = ^Tpcre2_convert_context_32;
  Ppcre2_convert_context = Ppcre2_convert_context_32;

  Ppcre2_general_context_32  = ^Tpcre2_general_context_32;
  Ppcre2_general_context = Ppcre2_general_context_32;

  Ppcre2_jit_stack_32  = ^Tpcre2_jit_stack_32;
  Ppcre2_jit_stack = Ppcre2_jit_stack_32;

  Ppcre2_match_context_32  = ^Tpcre2_match_context_32;
  Ppcre2_match_context = Ppcre2_match_context_32;

  Ppcre2_match_data_32  = ^Tpcre2_match_data_32;
  Ppcre2_match_data = Ppcre2_match_data_32;

  Psize_t  = ^tsize_t;
  Puint8_t  = ^byte;
  PTuint8_t = Puint8_t;
  PPTuint8_t = ^PTuint8_t;

  Tpcre2_real_general_context_32 = record
  end;
  Tpcre2_general_context_32 = Tpcre2_real_general_context_32;
  Tpcre2_general_context = Tpcre2_general_context_32;

  Ppcre2_real_general_context_32 = ^tpcre2_real_general_context_32;
  PTpcre2_general_context_32 = Ppcre2_real_general_context_32;
  
  Tpcre2_real_compile_context_32 = record
  end;
  Tpcre2_compile_context_32 = Tpcre2_real_compile_context_32;
  Tpcre2_compile_context = Tpcre2_compile_context_32;
  
  Ppcre2_real_compile_context_32 = ^Tpcre2_real_compile_context_32;
  PTpcre2_compile_context_32 = Ppcre2_real_compile_context_32;
  
  Tpcre2_real_match_context_32 = record
  end;
  Tpcre2_match_context_32 = Tpcre2_real_match_context_32;
  Tpcre2_match_context = Tpcre2_match_context_32;
  
  Ppcre2_real_match_context_32 = ^Tpcre2_real_match_context_32;
  PTpcre2_match_context_32 = Ppcre2_real_match_context_32;

  Tpcre2_real_convert_context_32 = record
  end;
  Tpcre2_convert_context_32 = Tpcre2_real_convert_context_32;
  Tpcre2_convert_context = Tpcre2_convert_context_32;

  Ppcre2_real_convert_context_32 = ^Tpcre2_real_convert_context_32;
  PTpcre2_convert_context_32 = Ppcre2_real_convert_context_32;

  Tpcre2_real_code_32 = record
  end;
  Tpcre2_code_32 = Tpcre2_real_code_32;
  Tpcre2_code = Tpcre2_code_32;

  Ppcre2_real_code_32 = ^Tpcre2_real_code_32;
  PTpcre2_code_32  = Ppcre2_real_code_32;
  PPTpcre2_code_32 = ^PTpcre2_code_32;


  Tpcre2_real_match_data_32 = record
  end;
  Tpcre2_match_data_32 = Tpcre2_real_match_data_32;
  Tpcre2_match_data = Tpcre2_match_data_32;
  
  Ppcre2_real_match_data_32 = ^Tpcre2_real_match_data_32;
  PTpcre2_match_data_32 = Ppcre2_real_match_data_32;

  Tpcre2_real_jit_stack_32 = record
  end;
  Tpcre2_jit_stack_32 = Tpcre2_real_jit_stack_32;
  Tpcre2_jit_stack = Tpcre2_jit_stack_32;
  Ppcre2_real_jit_stack_32 = ^Tpcre2_real_jit_stack_32;
  PTpcre2_jit_stack_32 = Ppcre2_real_jit_stack_32;

  Tpcre2_jit_callback_32 = function (_para1:pointer): PTpcre2_jit_stack_32;cdecl;

  Tpcre2_callout_block_32 = record
    version : Tuint32_t;
    callout_number : Tuint32_t;
    capture_top : Tuint32_t;
    capture_last : Tuint32_t;
    offset_vector : ^Tsize_t;
    mark : TPCRE2_SPTR8;
    subject : TPCRE2_SPTR8;
    subject_length : Tsize_t;
    start_match : Tsize_t;
    current_position : Tsize_t;
    pattern_position : Tsize_t;
    next_item_length : Tsize_t;
    callout_string_offset : Tsize_t;
    callout_string_length : Tsize_t;
    callout_string : TPCRE2_SPTR8;
    callout_flags : Tuint32_t;
  end;


  Tpcre2_callout_enumerate_block_32 = record
    version : Tuint32_t;
    pattern_position : Tsize_t;
    next_item_length : Tsize_t;
    callout_number : Tuint32_t;
    callout_string_offset : Tsize_t;
    callout_string_length : Tsize_t;
    callout_string : TPCRE2_SPTR8;
  end;
  PTpcre2_callout_enumerate_block_32 = ^Tpcre2_callout_enumerate_block_32;

  Tpcre2_substitute_callout_block_32 = record
    version : Tuint32_t;
    input : TPCRE2_SPTR8;
    output : TPCRE2_SPTR8;
    output_offsets : array[0..1] of Tsize_t;
    ovector : ^Tsize_t;
    oveccount : Tuint32_t;
    subscount : Tuint32_t;

  end;
  PTpcre2_substitute_callout_block_32 = ^  Tpcre2_substitute_callout_block_32;
  Ppcre2_substitute_callout_block_32 = PTpcre2_substitute_callout_block_32;

  tpcre2_malloc = function (_para1:Tsize_t; _para2:pointer) : Pointer; cdecl;
  tpcre2_free = procedure (_para1:pointer; _para2:pointer); cdecl;
  tpcre2_set_compile_recursion_guard_32_callback = function (_para1:Tuint32_t; _para2:pointer):Tcint; cdecl;
  tpcre2_set_callout_32_callback = function (_para1:Ppcre2_callout_block_32; _para2:pointer):Tcint; cdecl;
  tpcre2_callout_enumerate_32_callback = function (_para1: PTpcre2_callout_enumerate_block_32; _para2:pointer):Tcint; cdecl;
  tpcre2_set_substitute_callout_32_callback =   function (_para1:Ppcre2_substitute_callout_block_32; _para2:pointer):Tcint; cdecl;
     
var
  pcre2_config : function(_para1:Tuint32_t; _para2:pointer):Tcint;cdecl;
  pcre2_general_context_copy : function(_para1:PTpcre2_general_context_32): PTpcre2_general_context_32;cdecl;
  pcre2_general_context_create : function(_para1:tpcre2_malloc; _para2:tpcre2_free; _para3:pointer):PTpcre2_general_context_32;cdecl;
  pcre2_general_context_free : procedure(_para1:PTpcre2_general_context_32);cdecl;
  pcre2_compile_context_copy : function(_para1:PTpcre2_compile_context_32):PTpcre2_compile_context_32;cdecl;
  pcre2_compile_context_create : function(_para1:PTpcre2_general_context_32):PTpcre2_compile_context_32;cdecl;
  pcre2_compile_context_free : procedure(_para1:PTpcre2_compile_context_32);cdecl;
  pcre2_set_bsr : function(_para1:PTpcre2_compile_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_character_tables : function(_para1:PTpcre2_compile_context_32; _para2: Puint8_t):Tcint;cdecl;
  pcre2_set_compile_extra_options : function(_para1:PTpcre2_compile_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_max_pattern_length : function(_para1:PTpcre2_compile_context_32; _para2:Tsize_t):Tcint;cdecl;
  pcre2_set_newline : function(_para1:PTpcre2_compile_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_parens_nest_limit : function(_para1:PTpcre2_compile_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_compile_recursion_guard : function(_para1:PTpcre2_compile_context_32; _para2: tpcre2_set_compile_recursion_guard_32_callback; _para3:pointer):Tcint;cdecl;
  pcre2_convert_context_copy : function(_para1:PTpcre2_convert_context_32):PTpcre2_convert_context_32;cdecl;
  pcre2_convert_context_create : function(_para1:PTpcre2_general_context_32):PTpcre2_convert_context_32;cdecl;
  pcre2_convert_context_free : procedure(_para1:PTpcre2_convert_context_32);cdecl;
  pcre2_set_glob_escape : function(_para1:PTpcre2_convert_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_glob_separator : function(_para1:PTpcre2_convert_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_pattern_convert : function(_para1:TPCRE2_SPTR8; _para2:Tsize_t; _para3:Tuint32_t; _para4:PPTPCRE2_UCHAR8; _para5: Psize_t;  _para6:PTpcre2_convert_context_32):Tcint;cdecl;
  pcre2_converted_pattern_free : procedure(_para1:PTPCRE2_UCHAR8);cdecl;
  pcre2_match_context_copy : function(_para1:PTpcre2_match_context_32):PTpcre2_match_context_32;cdecl;
  pcre2_match_context_create : function(_para1:PTpcre2_general_context_32):PTpcre2_match_context_32;cdecl;
  pcre2_match_context_free : procedure(_para1:PTpcre2_match_context_32);cdecl;
  pcre2_set_callout : function(_para1:PTpcre2_match_context_32; _para2: tpcre2_set_callout_32_callback; _para3:pointer):Tcint;cdecl;
  pcre2_set_substitute_callout : function(_para1:PTpcre2_match_context_32; _para2:tpcre2_set_substitute_callout_32_callback; _para3:pointer):Tcint;cdecl;
  pcre2_set_depth_limit : function(_para1:PTpcre2_match_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_heap_limit : function(_para1:PTpcre2_match_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_match_limit : function(_para1:PTpcre2_match_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_offset_limit : function(_para1:PTpcre2_match_context_32; _para2:Tsize_t):Tcint;cdecl;
  pcre2_set_recursion_limit : function(_para1:PTpcre2_match_context_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_set_recursion_memory_management : function(_para1:PTpcre2_match_context_32; _para2: tpcre2_malloc; _para3:tpcre2_free; _para4:pointer):Tcint;cdecl;
  pcre2_compile : function(_para1:TPCRE2_SPTR8; _para2:Tsize_t; _para3:Tuint32_t; _para4:Pcint; _para5:Psize_t; _para6:PTpcre2_compile_context_32):Ppcre2_code_32;cdecl;
  pcre2_code_free : procedure(_para1:PTpcre2_code_32);cdecl;
  pcre2_code_copy : function(_para1:PTpcre2_code_32):PTpcre2_code_32;cdecl;
  pcre2_code_copy_with_tables : function(_para1:PTpcre2_code_32):PTpcre2_code_32;cdecl;
  pcre2_pattern_info : function(_para1:PTpcre2_code_32; _para2:Tuint32_t; _para3:pointer):Tcint;cdecl;
  pcre2_callout_enumerate : function(_para1:PTpcre2_code_32; _para2: tpcre2_callout_enumerate_32_callback; _para3:pointer):Tcint;cdecl;
  pcre2_match_data_create : function(_para1:Tuint32_t; _para2:PTpcre2_general_context_32):PTpcre2_match_data_32;cdecl;
  pcre2_match_data_create_from_pattern : function(_para1:PTpcre2_code_32; _para2:PTpcre2_general_context_32):PTpcre2_match_data_32;cdecl;
  pcre2_dfa_match : function(_para1:PTpcre2_code_32; _para2:TPCRE2_SPTR8; _para3:Tsize_t; _para4:Tsize_t; _para5:Tuint32_t; _para6:PTpcre2_match_data_32; _para7:PTpcre2_match_context_32; _para8:Pcint; _para9:Tsize_t):Tcint;cdecl;
  pcre2_match : function(_para1:PTpcre2_code_32; _para2:TPCRE2_SPTR8; _para3:Tsize_t; _para4:Tsize_t; _para5:Tuint32_t; _para6:PTpcre2_match_data_32; _para7:PTpcre2_match_context_32):Tcint;cdecl;
  pcre2_match_data_free : procedure(_para1:PTpcre2_match_data_32);cdecl;
  pcre2_get_mark : function(_para1:PTpcre2_match_data_32):TPCRE2_SPTR8;cdecl;
  pcre2_get_match_data_size : function(_para1:PTpcre2_match_data_32):Tsize_t;cdecl;
  pcre2_get_ovector_count : function(_para1:PTpcre2_match_data_32):Tuint32_t;cdecl;
  pcre2_get_ovector_pointer : function(_para1:PTpcre2_match_data_32):Psize_t;cdecl;
  pcre2_get_startchar : function(_para1:PTpcre2_match_data_32):Tsize_t;cdecl;
  pcre2_substring_copy_byname : function(_para1:PTpcre2_match_data_32; _para2:TPCRE2_SPTR8; _para3:PTPCRE2_UCHAR8; _para4:PTsize_t):Tcint;cdecl;
  pcre2_substring_copy_bynumber : function(_para1:PTpcre2_match_data_32; _para2:Tuint32_t; _para3:PTPCRE2_UCHAR8; _para4:PTsize_t):Tcint;cdecl;
  pcre2_substring_free : procedure(_para1:PTPCRE2_UCHAR8);cdecl;
  pcre2_substring_get_byname : function(_para1:PTpcre2_match_data_32; _para2:TPCRE2_SPTR8; _para3:PPTPCRE2_UCHAR8; _para4:PTsize_t):Tcint;cdecl;
  pcre2_substring_get_bynumber : function(_para1:PTpcre2_match_data_32; _para2:Tuint32_t; _para3:PPTPCRE2_UCHAR8; _para4:PTsize_t):Tcint;cdecl;
  pcre2_substring_length_byname : function(_para1:PTpcre2_match_data_32; _para2:TPCRE2_SPTR8; _para3:PTsize_t):Tcint;cdecl;
  pcre2_substring_length_bynumber : function(_para1:PTpcre2_match_data_32; _para2:Tuint32_t; _para3:PTsize_t):Tcint;cdecl;
  pcre2_substring_nametable_scan : function(_para1:PTpcre2_code_32; _para2:TPCRE2_SPTR8; _para3:PTPCRE2_SPTR8; _para4:PTPCRE2_SPTR8):Tcint;cdecl;
  pcre2_substring_number_from_name : function(_para1:PTpcre2_code_32; _para2:TPCRE2_SPTR8):Tcint;cdecl;
  pcre2_substring_list_free : procedure(_para1:PTPCRE2_SPTR8);cdecl;
  pcre2_substring_list_get : function(_para1:PTpcre2_match_data_32; _para2:PPPTPCRE2_UCHAR8; _para3:PPTsize_t):Tcint;cdecl;
  pcre2_serialize_encode : function(_para1:PPTpcre2_code_32; _para2:Tint32_t; _para3:PPTuint8_t; _para4:PTsize_t; _para5:PTpcre2_general_context_32):Tint32_t;cdecl;
  pcre2_serialize_decode : function(_para1:PPTpcre2_code_32; _para2:Tint32_t; _para3:PTuint8_t; _para4:PTpcre2_general_context_32):Tint32_t;cdecl;
  pcre2_serialize_get_number_of_codes : function(_para1:PTuint8_t):Tint32_t;cdecl;
  pcre2_serialize_free : procedure(_para1:PTuint8_t);cdecl;
  pcre2_substitute : function(_para1:PTpcre2_code_32; _para2:TPCRE2_SPTR8; _para3:Tsize_t; _para4:Tsize_t; _para5:Tuint32_t; _para6:PTpcre2_match_data_32; _para7:PTpcre2_match_context_32; _para8:TPCRE2_SPTR8; _para9:Tsize_t; _para10:PTPCRE2_UCHAR8;  _para11:PTsize_t):Tcint;cdecl;
  pcre2_jit_compile : function(_para1:PTpcre2_code_32; _para2:Tuint32_t):Tcint;cdecl;
  pcre2_jit_match : function(_para1:PTpcre2_code_32; _para2:TPCRE2_SPTR8; _para3:Tsize_t; _para4:Tsize_t; _para5:Tuint32_t; _para6:PTpcre2_match_data_32; _para7:PTpcre2_match_context_32):Tcint;cdecl;
  pcre2_jit_free_unused_memory : procedure(_para1:PTpcre2_general_context_32);cdecl;
  pcre2_jit_stack_create : function(_para1:Tsize_t; _para2:Tsize_t; _para3:PTpcre2_general_context_32):PTpcre2_jit_stack_32;cdecl;
  pcre2_jit_stack_assign : procedure(_para1:PTpcre2_match_context_32; _para2:Tpcre2_jit_callback_32; _para3:pointer);cdecl;
  pcre2_jit_stack_free : procedure(_para1:PTpcre2_jit_stack_32);cdecl;
  pcre2_get_error_message : function(_para1:Tcint; _para2:PTPCRE2_UCHAR8; _para3:Tsize_t):Tcint;cdecl;
  pcre2_maketables : function(_para1:PTpcre2_general_context_32):PTuint8_t;cdecl;
  pcre2_maketables_free : procedure(_para1:PTpcre2_general_context_32; _para2:PTuint8_t);cdecl;

function libpcre28loaded : Boolean;
procedure Loadlibpcre28;
procedure Freelibpcre28;
procedure Loadlibpcre28(const lib : string);

implementation

uses
{$IFDEF FPC_DOTTEDUNITS}
  System.SysUtils, System.DynLibs;
{$ELSE}
  SysUtils, dynlibs;
{$ENDIF}

var
  hlib : tlibhandle;


function libpcre28loaded : Boolean;
begin
  Result:=(hLib<>NilHandle);
end;

procedure Freelibpcre28;

begin
  if hlib=nilhandle then exit;
  FreeLibrary(hlib);
  hlib:=NilHandle;
  pcre2_config:=nil;
  pcre2_general_context_copy:=nil;
  pcre2_general_context_create:=nil;
  pcre2_general_context_free:=nil;
  pcre2_compile_context_copy:=nil;
  pcre2_compile_context_create:=nil;
  pcre2_compile_context_free:=nil;
  pcre2_set_bsr:=nil;
  pcre2_set_character_tables:=nil;
  pcre2_set_compile_extra_options:=nil;
  pcre2_set_max_pattern_length:=nil;
  pcre2_set_newline:=nil;
  pcre2_set_parens_nest_limit:=nil;
  pcre2_set_compile_recursion_guard:=nil;
  pcre2_convert_context_copy:=nil;
  pcre2_convert_context_create:=nil;
  pcre2_convert_context_free:=nil;
  pcre2_set_glob_escape:=nil;
  pcre2_set_glob_separator:=nil;
  pcre2_pattern_convert:=nil;
  pcre2_converted_pattern_free:=nil;
  pcre2_match_context_copy:=nil;
  pcre2_match_context_create:=nil;
  pcre2_match_context_free:=nil;
  pcre2_set_callout:=nil;
  pcre2_set_substitute_callout:=nil;
  pcre2_set_depth_limit:=nil;
  pcre2_set_heap_limit:=nil;
  pcre2_set_match_limit:=nil;
  pcre2_set_offset_limit:=nil;
  pcre2_set_recursion_limit:=nil;
  pcre2_set_recursion_memory_management:=nil;
  pcre2_compile:=nil;
  pcre2_code_free:=nil;
  pcre2_code_copy:=nil;
  pcre2_code_copy_with_tables:=nil;
  pcre2_pattern_info:=nil;
  pcre2_callout_enumerate:=nil;
  pcre2_match_data_create:=nil;
  pcre2_match_data_create_from_pattern:=nil;
  pcre2_dfa_match:=nil;
  pcre2_match:=nil;
  pcre2_match_data_free:=nil;
  pcre2_get_mark:=nil;
  pcre2_get_match_data_size:=nil;
  pcre2_get_ovector_count:=nil;
  pcre2_get_ovector_pointer:=nil;
  pcre2_get_startchar:=nil;
  pcre2_substring_copy_byname:=nil;
  pcre2_substring_copy_bynumber:=nil;
  pcre2_substring_free:=nil;
  pcre2_substring_get_byname:=nil;
  pcre2_substring_get_bynumber:=nil;
  pcre2_substring_length_byname:=nil;
  pcre2_substring_length_bynumber:=nil;
  pcre2_substring_nametable_scan:=nil;
  pcre2_substring_number_from_name:=nil;
  pcre2_substring_list_free:=nil;
  pcre2_substring_list_get:=nil;
  pcre2_serialize_encode:=nil;
  pcre2_serialize_decode:=nil;
  pcre2_serialize_get_number_of_codes:=nil;
  pcre2_serialize_free:=nil;
  pcre2_substitute:=nil;
  pcre2_jit_compile:=nil;
  pcre2_jit_match:=nil;
  pcre2_jit_free_unused_memory:=nil;
  pcre2_jit_stack_create:=nil;
  pcre2_jit_stack_assign:=nil;
  pcre2_jit_stack_free:=nil;
  pcre2_get_error_message:=nil;
  pcre2_maketables:=nil;
  pcre2_maketables_free:=nil;
end;



procedure Loadlibpcre28;
begin
  Loadlibpcre28(pcrelibname);
end;


procedure Loadlibpcre28(const lib : string);

  Function GetAddr(const aName : string) : Pointer;

  begin
    Result:=GetProcAddress(hlib,aname);
    if Result=Nil then
      if IsConsole then
        Writeln(stdErr,'Could not load procedure: ',aName)
  end;

begin
  Freelibpcre28;
  hlib:=LoadLibrary(lib);
  if (hlib=NilHandle) then
    raise Exception.Create(format('Could not load library: %s',[lib]));

  pointer(pcre2_config):=GetAddr('pcre2_config_32');
  pointer(pcre2_general_context_copy):=GetAddr('pcre2_general_context_copy_32');
  pointer(pcre2_general_context_create):=GetAddr('pcre2_general_context_create_32');
  pointer(pcre2_general_context_free):=GetAddr('pcre2_general_context_free_32');
  pointer(pcre2_compile_context_copy):=GetAddr('pcre2_compile_context_copy_32');
  pointer(pcre2_compile_context_create):=GetAddr('pcre2_compile_context_create_32');
  pointer(pcre2_compile_context_free):=GetAddr('pcre2_compile_context_free_32');
  pointer(pcre2_set_bsr):=GetAddr('pcre2_set_bsr_32');
  pointer(pcre2_set_character_tables):=GetAddr('pcre2_set_character_tables_32');
  pointer(pcre2_set_compile_extra_options):=GetAddr('pcre2_set_compile_extra_options_32');
  pointer(pcre2_set_max_pattern_length):=GetAddr('pcre2_set_max_pattern_length_32');
  pointer(pcre2_set_newline):=GetAddr('pcre2_set_newline_32');
  pointer(pcre2_set_parens_nest_limit):=GetAddr('pcre2_set_parens_nest_limit_32');
  pointer(pcre2_set_compile_recursion_guard):=GetAddr('pcre2_set_compile_recursion_guard_32');
  pointer(pcre2_convert_context_copy):=GetAddr('pcre2_convert_context_copy_32');
  pointer(pcre2_convert_context_create):=GetAddr('pcre2_convert_context_create_32');
  pointer(pcre2_convert_context_free):=GetAddr('pcre2_convert_context_free_32');
  pointer(pcre2_set_glob_escape):=GetAddr('pcre2_set_glob_escape_32');
  pointer(pcre2_set_glob_separator):=GetAddr('pcre2_set_glob_separator_32');
  pointer(pcre2_pattern_convert):=GetAddr('pcre2_pattern_convert_32');
  pointer(pcre2_converted_pattern_free):=GetAddr('pcre2_converted_pattern_free_32');
  pointer(pcre2_match_context_copy):=GetAddr('pcre2_match_context_copy_32');
  pointer(pcre2_match_context_create):=GetAddr('pcre2_match_context_create_32');
  pointer(pcre2_match_context_free):=GetAddr('pcre2_match_context_free_32');
  pointer(pcre2_set_callout):=GetAddr('pcre2_set_callout_32');
  pointer(pcre2_set_substitute_callout):=GetAddr('pcre2_set_substitute_callout_32');
  pointer(pcre2_set_depth_limit):=GetAddr('pcre2_set_depth_limit_32');
  pointer(pcre2_set_heap_limit):=GetAddr('pcre2_set_heap_limit_32');
  pointer(pcre2_set_match_limit):=GetAddr('pcre2_set_match_limit_32');
  pointer(pcre2_set_offset_limit):=GetAddr('pcre2_set_offset_limit_32');
  pointer(pcre2_set_recursion_limit):=GetAddr('pcre2_set_recursion_limit_32');
  pointer(pcre2_set_recursion_memory_management):=GetAddr('pcre2_set_recursion_memory_management_32');
  pointer(pcre2_compile):=GetAddr('pcre2_compile_32');
  pointer(pcre2_code_free):=GetAddr('pcre2_code_free_32');
  pointer(pcre2_code_copy):=GetAddr('pcre2_code_copy_32');
  pointer(pcre2_code_copy_with_tables):=GetAddr('pcre2_code_copy_with_tables_32');
  pointer(pcre2_pattern_info):=GetAddr('pcre2_pattern_info_32');
  pointer(pcre2_callout_enumerate):=GetAddr('pcre2_callout_enumerate_32');
  pointer(pcre2_match_data_create):=GetAddr('pcre2_match_data_create_32');
  pointer(pcre2_match_data_create_from_pattern):=GetAddr('pcre2_match_data_create_from_pattern_32');
  pointer(pcre2_dfa_match):=GetAddr('pcre2_dfa_match_32');
  pointer(pcre2_match):=GetAddr('pcre2_match_32');
  pointer(pcre2_match_data_free):=GetAddr('pcre2_match_data_free_32');
  pointer(pcre2_get_mark):=GetAddr('pcre2_get_mark_32');
  pointer(pcre2_get_match_data_size):=GetAddr('pcre2_get_match_data_size_32');
  pointer(pcre2_get_ovector_count):=GetAddr('pcre2_get_ovector_count_32');
  pointer(pcre2_get_ovector_pointer):=GetAddr('pcre2_get_ovector_pointer_32');
  pointer(pcre2_get_startchar):=GetAddr('pcre2_get_startchar_32');
  pointer(pcre2_substring_copy_byname):=GetAddr('pcre2_substring_copy_byname_32');
  pointer(pcre2_substring_copy_bynumber):=GetAddr('pcre2_substring_copy_bynumber_32');
  pointer(pcre2_substring_free):=GetAddr('pcre2_substring_free_32');
  pointer(pcre2_substring_get_byname):=GetAddr('pcre2_substring_get_byname_32');
  pointer(pcre2_substring_get_bynumber):=GetAddr('pcre2_substring_get_bynumber_32');
  pointer(pcre2_substring_length_byname):=GetAddr('pcre2_substring_length_byname_32');
  pointer(pcre2_substring_length_bynumber):=GetAddr('pcre2_substring_length_bynumber_32');
  pointer(pcre2_substring_nametable_scan):=GetAddr('pcre2_substring_nametable_scan_32');
  pointer(pcre2_substring_number_from_name):=GetAddr('pcre2_substring_number_from_name_32');
  pointer(pcre2_substring_list_free):=GetAddr('pcre2_substring_list_free_32');
  pointer(pcre2_substring_list_get):=GetAddr('pcre2_substring_list_get_32');
  pointer(pcre2_serialize_encode):=GetAddr('pcre2_serialize_encode_32');
  pointer(pcre2_serialize_decode):=GetAddr('pcre2_serialize_decode_32');
  pointer(pcre2_serialize_get_number_of_codes):=GetAddr('pcre2_serialize_get_number_of_codes_32');
  pointer(pcre2_serialize_free):=GetAddr('pcre2_serialize_free_32');
  pointer(pcre2_substitute):=GetAddr('pcre2_substitute_32');
  pointer(pcre2_jit_compile):=GetAddr('pcre2_jit_compile_32');
  pointer(pcre2_jit_match):=GetAddr('pcre2_jit_match_32');
  pointer(pcre2_jit_free_unused_memory):=GetAddr('pcre2_jit_free_unused_memory_32');
  pointer(pcre2_jit_stack_create):=GetAddr('pcre2_jit_stack_create_32');
  pointer(pcre2_jit_stack_assign):=GetAddr('pcre2_jit_stack_assign_32');
  pointer(pcre2_jit_stack_free):=GetAddr('pcre2_jit_stack_free_32');
  pointer(pcre2_get_error_message):=GetAddr('pcre2_get_error_message_32');
  pointer(pcre2_maketables):=GetAddr('pcre2_maketables_32');
  pointer(pcre2_maketables_free):=GetAddr('pcre2_maketables_free_32');
end;


initialization
 Loadlibpcre28;

finalization
  Freelibpcre28;
end.