libpaspcre2

libpaspcre2

Libpaspcre2 adalah delphi dan objek binding pascal untuk perpustakaan ekspresi reguler yang kompatibel dengan perl (PCRE2). Perpustakaan adalah serangkaian fungsi yang menerapkan pencocokan pola ekspresi reguler menggunakan sintaks dan semantik yang sama dengan Perl 5.

Daftar isi

• Requierements
• Instalasi
• Penggunaan
• Pengujian
• Binding
  • Contoh Penggunaan

Persyaratan

• EMBARCADERO (R) RAD Studio
• Kompiler Pascal GRATIS
• Lazarus IDE (opsional)

Perpustakaan diuji

• Embarcadero (R) Delphi 10.3 di Windows 7 Service Pack 1 (Versi 6.1, Build 7601, edisi 64-bit)
• Freepascal Compiler (3.2.0) dan Lazarus IDE (2.0.10) di Ubuntu Linux 5.8.0-33-Generic X86_64

Instalasi

Dapatkan sumber dan tambahkan direktori sumber ke jalur pencarian proyek. Untuk FPC, tambahkan direktori sumber ke file fpc.cfg .

Penggunaan

Kloning git clone https://github.com/isemenkov/libpaspcre2 .

Tambahkan unit yang ingin Anda gunakan ke klausa uses .

Pengujian

Kerangka pengujian terdiri dari bahan -bahan berikut:

1. Proyek Test Runner yang berlokasi di direktori unit-tests .
2. Kasus uji (dunit untuk Delphi dan FPCunit untuk berbasis FPC) untuk semua kelas kontainer.

Binding

File libpaspcre2.pas berisi header yang diterjemahkan PCRE2 untuk menggunakan perpustakaan ini dalam program Pascal. Anda dapat menemukan dokumentasi API C di situs web www.pcre.org.

Contoh Penggunaan

 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 ;