libpaspcre2

libpaspcre2

LibpaSpCre2 es Delphi y Object Pascal Bindings para la biblioteca de expresiones regulares compatibles con PERL (PCRE2). La biblioteca es un conjunto de funciones que implementan la coincidencia de patrones de expresión regulares utilizando la misma sintaxis y semántica que PERL 5.

Tabla de contenido

• Requisitos
• Instalación
• Uso
• Pruebas
• Ataduras
  • Ejemplo de uso

Requisitos

• Embarcadero (R) Rad Studio
• Compilador de Pascal gratis
• Lázaro IDE (opcional)

La biblioteca se prueba para

• Embarcarrador (R) Delphi 10.3 en Windows 7 Service Pack 1 (versión 6.1, compilación 7601, edición de 64 bits)
• Compilador Freepascal (3.2.0) y Lázaro IDE (2.0.10) en Ubuntu Linux 5.8.0-33-Generic X86_64

Instalación

Obtenga las fuentes y agregue el directorio de origen a la ruta de búsqueda del proyecto. Para FPC, agregue el directorio de origen al archivo fpc.cfg .

Uso

Clone El repositorio git clone https://github.com/isemenkov/libpaspcre2 .

Agregue la unidad que desea usar a la cláusula uses .

Pruebas

Un marco de prueba consta de los siguientes ingredientes:

1. Proyecto de corredor de prueba ubicado en un directorio unit-tests .
2. Casos de prueba (Dunit para Delphi y FPCunit para FPC basado) para todas las clases de contenedores.

Ataduras

LibpaSpCre2.pas El archivo contiene los encabezados traducidos PCRE2 para usar esta biblioteca en programas Pascal. Puede encontrar la documentación de C API en el sitio web www.pcre.org.

Ejemplo de uso

 uses
  libpaspcre2, utils.api.cstring;
  
var
  re : pcre2_code_8;
  rc : Integer;
  pattern, subject : PCRE2_SPTR8;
  error_buffer : string[ 255 ];
  subject_length : Int64;
  error_number : Integer;
  error_offset : PCRE2_SIZE;
  ovector : PPCRE2_SIZE;
  match_data : ppcre2_match_data_8;
  substring : string;
begin
  pattern := PCRE2_SPTR8(API.CString.Create( ' (?:D|^)(5[1-5][0-9]{2}(?: |-|)[0-9]{4} ' +
    ' (?: |-|)[0-9]{4}(?: |-|)[0-9]{4})(?:D|$) ' ).ToPAnsiChar);
  subject := PCRE2_SPTR8(API.CString.Create( ' 5111 2222 3333 4444 ' ).ToPAnsiChar);
  subject_length := API.CString.Create( ' 5111 2222 3333 4444 ' ).Length;
  
  re := pcre2_compile_8(pattern, PCRE2_ZERO_TERMINATED, 0 , @error_number, @error_offset, nil );
  if re = nil then
  begin
    pcre2_get_error_message_8(error_number, PPCRE2_UCHAR8(@error_buffer[ 0 ]), 256 );
    Fail(Format( ' PCRE2 compilation failed at offset %d: %s ' , [error_offset, error_buffer]));
  end ;
  
  match_data := pcre2_match_data_create_from_pattern_8(re, nil );
  rc := pcre2_match_8(re, subject, subject_length, 0 , 0 , match_data, nil );
  if rc < 0 then
  begin
    case rc of
    PCRE2_ERROR_NOMATCH :
      begin
        pcre2_match_data_free_8(match_data);
        pcre2_code_free_8(re);
        Fail( ' No match ' );
      end ;
    end ;
  end ;
  {
  ovector := pcre2_get_ovector_pointer_8(match_data);
  
  if ovector^ > (ovector + 1)^ then
    Fail('Error');
    
  substring := Copy(PChar(subject), ovector^, (ovector + 1)^ - ovector^);
  
  pcre2_match_data_free_8(match_data);
  pcre2_code_free_8(re);
  }
end ;