dc_regex Module Reference

シンプルな正規表現関数 'match' を提供します. More...

Functions/Subroutines
subroutine, public	match (pattern, text, start, length)

Detailed Description

シンプルな正規表現関数 'match' を提供します.

Author

Youhei SASAKI

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

このモジュールはシンプルな正規表現マッチング関数を提供します.

サポートする機能

パターン	説明
.	任意の1文字
?	直前の0回または1回
+	直前の1回以上
*	直前の0回以上
^	文字列の先頭
$	文字列の末尾
[abc]	文字クラス
[^abc]	否定文字クラス
#d	数字 (0-9)
#a	アルファベット
#w	単語文字 (英数字 + _)
#s	空白文字
#z	16進数字
#xHH	16進文字コード

Note

エスケープ文字は '\' ではなく '#' です.

Function/Subroutine Documentation

match()

subroutine, public dc_regex::match	(	character(len = *), intent(in)	pattern,
		character(len = *), intent(in)	text,
		integer, intent(out)	start,
		integer, intent(out)	length )

正規表現パターンをテキストにマッチング

与えられた正規表現パターンをテキスト文字列にマッチングします.

pattern が text にマッチした場合, start には文字列の何文字目から マッチしたのかを示す数値 (正の整数) が返ります. length には何文字分マッチしたのかを示す数値 (正の整数) が返ります.

マッチしない場合, length == -1, start == 0 となります.

Parameters

[in]	pattern	正規表現パターン
[in]	text	検索対象のテキスト文字列
[out]	start	マッチの開始位置 (マッチしない場合は 0)
[out]	length	マッチした長さ (マッチしない場合は -1)

例

program regex_test
  use dc_regex, only: match
  use dc_types, only: token
  implicit none
  integer:: start, length
  character(TOKEN) :: pattern, text
 
  pattern = 
  text    = 
  call match(trim(pattern), trim(text), start, length)
  ! 結果: start=5, length=2
 
  pattern = 
  text    = 
  call match(trim(pattern), trim(text), start, length)
  ! 結果: start=1, length=7
 
  pattern = 
  text    = 
  call match(trim(pattern), trim(text), start, length)
  ! 結果: start=8, length=3
end program regex_test

Definition at line 468 of file dc_regex.f90.

    implicit none
    character(len = *), intent(in)  :: pattern, text
    integer, intent(out)            :: start, length
    integer, allocatable            :: ipattern(:)
    integer                         :: text_length
    continue
    ! 空 pattern は空文字列に適合
    if (len(pattern) <= 0) then
      length = 0
      start = 1
      return
    endif
    ! メタキャラクタの認識
    allocate(ipattern(len(pattern) + 2))
    call preprocess_pattern(pattern, ipattern)
    ! 頭寄せ指定のある場合
    if (ipattern(1) == sym_headfix) then
      start = 1
      call match_here(ipattern(2: ), text, length)
      if (length < 0) goto 995
      goto 999
    end if
    ! 最左原理
    text_length = len(text)
    do, start = 1, text_length + 1
      call match_here(ipattern, text(start:text_length), length)
      if (length >= 0) goto 999
    end do
    ! みつからない場合
995 continue
    start = 0
    length = -1
999 continue
    deallocate(ipattern)