libpaspcre2

libpaspcre2

libpaspcre2 هو Delphi و Comple Pascal Bindings لمكتبة التعبيرات العادية المتوافقة مع PERL (PCRE2). المكتبة هي مجموعة من الوظائف التي تنفذ مطابقة نمط التعبير العادي باستخدام نفس بناء الجملة والدلالات مثل Perl 5.

جدول المحتويات

• طلبات
• تثبيت
• الاستخدام
• الاختبار
• روابط
  • مثال الاستخدام

متطلبات

• Embarcadero (R) Rad Studio
• مترجم باسكال مجاني
• لازاروس إيدي (اختياري)

تم اختبار المكتبة

• Embarcadero (R) Delphi 10.3 on Windows 7 Service Pack 1 (الإصدار 6.1 ، بناء 7601 ، إصدار 64 بت)
• مترجم Freepascal (3.2.0) و Lazarus IDE (2.0.10) على Ubuntu Linux 5.8.0-33-Generic x86_64

تثبيت

احصل على المصادر وأضف دليل المصدر إلى مسار البحث عن المشروع. لـ FPC ، أضف دليل المصدر إلى ملف FPC.CFG .

الاستخدام

استنساخ المستودع git clone https://github.com/isemenkov/libpaspcre2 .

أضف الوحدة التي تريد استخدامها إلى شرط uses .

الاختبار

يتكون إطار الاختبار من المكونات التالية:

1. اختبار مشروع عداء يقع في دليل unit-tests .
2. حالات الاختبار (Dunit لـ Delphi و FPCunit لـ FPC) لجميع فئات الحاويات.

روابط

يحتوي ملف libpaspcre2.pas على رؤوس PCRE2 المترجمة لاستخدام هذه المكتبة في برامج Pascal. يمكنك العثور على وثائق C API على موقع www.pcre.org.

مثال الاستخدام

 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 ;