libpaspcre2

libpaspcre2

libpaspcre2 est les liaisons Delphi et Object Pascal pour la bibliothèque d'expressions régulières compatibles perl (PCRE2). La bibliothèque est un ensemble de fonctions qui implémentent la correspondance de modèle d'expression régulière en utilisant la même syntaxe et la même sémantique que Perl 5.

Table des matières

• Demandes
• Installation
• Usage
• Essai
• Reliures
  • Exemple d'utilisation

Exigences

• Embarcadero (R) RAD Studio
• Compilateur Pascal gratuit
• Lazarus IDE (facultatif)

La bibliothèque est testée pour

• Embarcadero (R) Delphi 10.3 sur Windows 7 Service Pack 1 (version 6.1, build 7601, 64 bits édition)
• Freepascal Compiler (3.2.0) et Lazarus IDE (2.0.10) sur Ubuntu Linux 5.8.0-33-Générique X86_64

Installation

Obtenez les sources et ajoutez le répertoire source au chemin de recherche de projet. Pour FPC, ajoutez le répertoire source au fichier fpc.cfg .

Usage

CLONE Le référentiel git clone https://github.com/isemenkov/libpaspcre2 .

Ajoutez l'unité que vous souhaitez utiliser à la clause uses .

Essai

Un cadre de test se compose des ingrédients suivants:

1. Test Runner Project situé dans le répertoire unit-tests .
2. Cas de test (DUNIT pour Delphi et FPCunit pour FPC basés sur FPC) pour toutes les classes de conteneurs.

Reliures

Le fichier libpaspcre2.pas contient les en-têtes traduits PCRE2 pour utiliser cette bibliothèque dans les programmes Pascal. Vous pouvez trouver la documentation de l'API C sur le site Web www.pcre.org.

Exemple d'utilisation

 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 ;