dc_regex Module Reference

Detailed Description

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

Author

Youhei SASAKI

Copyright

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

Functions/Subroutines
subroutine	preprocess_pattern (pattern, symbols)
recursive subroutine	match_here (ipat, text, length)
logical function	hit (ipat, c)
subroutine, public	match (pattern, text, start, length)

Variables
character, save	c_escape = '#'
integer, parameter	sym_eol = -128
integer, parameter	sym_anychar = 500
integer, parameter	sym_question = 501
integer, parameter	sym_plus = 502
integer, parameter	sym_star = 503
integer, parameter	sym_normal_set = 520
integer, parameter	sym_reversed_set = 521
integer, parameter	sym_headfix = 540
integer, parameter	sym_tailfix = 541
integer, parameter	sym_isdigit = 560
integer, parameter	sym_isalpha = 561
integer, parameter	sym_isword = 562
integer, parameter	sym_isspace = 563
integer, parameter	sym_isxdigit = 564
integer, parameter	sym_count_base = 1000

Function/Subroutine Documentation

hit()

logical function dc_regex::hit ( integer, dimension(:), intent(in)  ipat, character(len=*), intent(in)  c  )

private

Definition at line 235 of file dc_regex.f90.

References sym_anychar, sym_isalpha, sym_isdigit, sym_isspace, sym_isword, and sym_isxdigit.

Referenced by match_here().

    integer, intent(in):: ipat(:)
    character(len=*), intent(in):: c
    character(len=*), parameter:: &
      & DIGIT = "0123456789", &
      & XDIGIT = "ABCDEFabcdef", &
      & ALPHA = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    integer:: i
    continue
    do, i = 1, size(ipat)
      select case(ipat(i))
      case(sym_anychar)
        result = .true.
      case(sym_isalpha)
        result = (index(alpha, c) > 0)
      case(sym_isdigit)
        result = (index(digit, c) > 0)
      case(sym_isword)
        result = (index(digit, c) > 0 .or. index(alpha, c) > 0 .or. &
          & c == '_')
      case(sym_isxdigit)
        result = (index(digit, c) > 0 .or. index(xdigit, c) > 0)
      case(sym_isspace)
        result = (c == ' ' .or. (iachar(c) >= 8 .and. iachar(c) <= 13))
      case default
        result = (ipat(i) == ichar(c))
      end select
      if (result) return
    enddo
    result = .false.

Here is the caller graph for this function:

match()

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

Definition at line 267 of file dc_regex.f90.

References match_here(), preprocess_pattern(), and sym_headfix.

Referenced by actual_iorange_dump(), dccaldatecreate1(), dccaldateparsestr1(), dcunits_com::dcunitsgettoken(), historygetdouble0(), historygetdouble1(), historygetdouble2(), historygetdouble3(), historygetdouble4(), historygetdouble5(), historygetdouble6(), historygetdouble7(), historygetint0(), historygetint1(), historygetint2(), historygetint3(), historygetint4(), historygetint5(), historygetint6(), historygetint7(), historygetreal0(), historygetreal1(), historygetreal2(), historygetreal3(), historygetreal4(), historygetreal5(), historygetreal6(), historygetreal7(), and lookup_growable_url().

    !
    ! _pattern_ には正規表現を与えます。
    ! _text_ には正規表現によって探査したい文字列を与えます。
    !
    ! _pattern_ が _text_ にマッチした場合、
    ! _start_ には文字列の何文字目からマッチしたのかを示す数値 (正の整数)
    ! が返ります。
    ! _length_ には何文字分マッチしたのかを示す数値 (正の整数)
    ! が返ります。
    !
    ! マッチしない場合、 length == -1, start == 0 となります。
    !
    !
    !=== 例
    !
    !      program regex_test
    !        use dc_regex, only: match
    !        use dc_types, only: TOKEN
    !        implicit none
    !
    !        integer:: start, length
    !        character(TOKEN) :: pattern, text
    !      continue
    !        pattern = "->"
    !        text    = "time->0.0,x->hoge"
    !        call match(trim(pattern), trim(text), start, length)
    !        call formatted_print
    !
    !        pattern = "^##+"
    !        text    = "####### hoge"
    !        call match(trim(pattern), trim(text), start, length)
    !        call formatted_print
    !
    !        pattern = "@+$"
    !        text    = "# hoge @@@"
    !        call match(trim(pattern), trim(text), start, length)
    !        call formatted_print
    !
    !      contains
    !        subroutine formatted_print
    !          use dc_string, only: Printf
    !          call Printf(fmt='pattern= %c : text= %c : start= %d : length= %d', &
    !            & c1=trim(pattern), c2=trim(text), i=(/start, length/))
    !        end subroutine formatted_print
    !
    !      end program regex_test
    !
    ! このプログラムを実行することで以下の出力が得られるはずです。
    !
    !      pattern= -> : text= time->0.0,x->hoge : start= 5 : length= 2
    !      pattern= ^##+ : text= ####### hoge : start= 1 : length= 7
    !      pattern= @+$ : text= # hoge @@@ : start= 8 : length= 3
    !
    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
    endif
    ! 最左原理
    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)

Here is the call graph for this function:

Here is the caller graph for this function:

match_here()

recursive subroutine dc_regex::match_here ( integer, dimension(:), intent(in)  ipat, character(len = *), intent(in)  text, integer, intent(out)  length  )

private

Definition at line 154 of file dc_regex.f90.

References hit(), sym_count_base, sym_eol, sym_normal_set, sym_plus, sym_question, sym_reversed_set, sym_star, and sym_tailfix.

Referenced by match().

    integer, intent(in):: ipat(:)
    character(len = *), intent(in):: text
    integer, intent(out):: length
    integer:: s1, s2, remain, i, hitmax, hitcount, hit_at_least
    logical:: normal_hit
    continue
    ! パターンの終わり。空パターンには何でもマッチ
    if (size(ipat) == 0 .or. ipat(1) == sym_eol) then
      length = 0
      return
    endif
    ! パターンの文末固定指示
    if (ipat(1) == sym_tailfix) then
      if (text == "") then
        length = 0
      else
        length = -1
      endif
      return
    endif
    if (len(text) == 0) then
      length = -1
      return
    endif
    ! 1字指定(範囲または1字リテラル)の抽出 ... ipat(s1:s2)
    if (ipat(1) == sym_normal_set) then
      s1 = 3
      s2 = 2 + ipat(2) - sym_count_base
      normal_hit = .true.
    else if (ipat(1) == sym_reversed_set) then
      s1 = 3
      s2 = 2 + ipat(2) - sym_count_base
      normal_hit = .false.
    else
      s1 = 1
      s2 = 1
      normal_hit = .true.
    endif
    ! その次の記号 ipat(s2+1) は量化子か次の1字指定である
    remain = s2 + 2
    select case (ipat(s2 + 1))
    case(sym_star)
      hitmax = len(text)
      hit_at_least = 0
    case(sym_plus)
      hitmax = len(text)
      hit_at_least = 1
    case(sym_question)
      hitmax = 1
      hit_at_least = 0
    case default
      hitmax = 1
      hit_at_least = 1
      remain = s2 + 1
    end select
    ! 現位置以降の1字指定のヒット数を数える
    hitcount = 0
    do, i = 1, hitmax
      if (hit(ipat(s1:s2), text(i:i)) .neqv. normal_hit) then
        exit
      endif
      hitcount = i
    enddo
    ! 現位置で無ヒットの場合、ヒットを要するならマッチ失敗
    if (hitcount < hit_at_least) then
      length = -1
      return
    endif
    ! 最長原理: なるべく長くヒットしたものから、残りのマッチする
    ! ものを探す。いわゆる最左最長探索の最長である。
    do, i = 1 + hitcount, 1 + hit_at_least, -1
      call match_here(ipat(remain: ), text(i: ), length)
      if (length >= 0) then
        length = length + i - 1
        return
      endif
    enddo
    length = -1

Here is the call graph for this function:

Here is the caller graph for this function:

preprocess_pattern()

subroutine dc_regex::preprocess_pattern ( character(len = *), intent(in)  pattern, integer, dimension(:), intent(out)  symbols  )

private

Definition at line 41 of file dc_regex.f90.

References c_escape, sym_anychar, sym_count_base, sym_eol, sym_headfix, sym_isalpha, sym_isdigit, sym_isspace, sym_isword, sym_isxdigit, sym_normal_set, sym_plus, sym_question, sym_reversed_set, sym_star, and sym_tailfix.

Referenced by match().

    !
    ! メタキャラクタと普通の文字を分離
    !
    character(len = *), intent(in):: pattern
    integer, intent(out):: symbols(:)
    integer:: i, j, code, imax, j_last_set
    integer:: status, stat_return
    integer, parameter:: stat_init = 1, stat_escape = 2, &
      stat_open_set = 3, stat_in_set = 4, stat_hexadecimal = 5
    character:: c
    continue
    status = stat_init
    stat_return = stat_init
    symbols(:) = sym_eol
    j_last_set = 0
    imax = len_trim(pattern)
    j = 1
    do, i = 1, imax
      c = pattern(i:i)
      select case(status)
      case(stat_init)
        if (c == c_escape) then
          status = stat_escape
          cycle
        else if (c == "[") then
          symbols(j) = sym_normal_set
          status = stat_open_set
        else if (c == ".") then
          symbols(j) = sym_anychar
        else if (c == "?") then
          symbols(j) = sym_question
        else if (c == "+") then
          symbols(j) = sym_plus
        else if (c == "*") then
          symbols(j) = sym_star
        else if (c == "^" .and. i == 1) then
          symbols(j) = sym_headfix
        else if (c == "$" .and. i == imax) then
          symbols(j) = sym_tailfix
        else
          symbols(j) = ichar(c)
        endif
      case(stat_escape)
        if (c == 'd' .or. c == 'D') then
          symbols(j) = sym_isdigit
        else if (c == 'a' .or. c == 'A') then
          symbols(j) = sym_isalpha
        else if (c == 'w' .or. c == 'W') then
          symbols(j) = sym_isword
        else if (c == 's' .or. c == 'S') then
          symbols(j) = sym_isspace
        else if (c == 'z' .or. c == 'Z') then
          symbols(j) = sym_isxdigit
        else if (c == 'x' .or. c == 'X') then
          symbols(j) = -1
          status = stat_hexadecimal
          cycle
        else
          symbols(j) = ichar(c)
        end if
        status = stat_return
      case(stat_hexadecimal)
        code = index("123456789ABCDEFabcdef", c)
        if (code >= 16) code = code - 6
        if (symbols(j) == -1) then
          symbols(j) = code
          cycle
        else
          symbols(j) = symbols(j) * 16 + code
          status = stat_return
        endif
      case(stat_open_set)
        symbols(j) = sym_count_base
        j_last_set = j
        stat_return = stat_in_set
        if (c == '^') then
          symbols(j - 1) = sym_reversed_set
          status = stat_in_set
        else if (c == c_escape) then
          status = stat_escape
        else
          j = j + 1
          symbols(j) = ichar(c)
          status = stat_in_set
        endif
      case(stat_in_set)
        if (c == ']') then
          symbols(j_last_set) = sym_count_base + j - j_last_set - 1
          stat_return = stat_init
          status = stat_init
          cycle
        else if (c == c_escape) then
          status = stat_escape
          cycle
        else
          symbols(j) = ichar(c)
        endif
      end select
      j = j + 1
    enddo
    select case(status)
    case(stat_escape)
      symbols(j) = ichar(' ')
    case(stat_open_set)
      symbols(j) = sym_count_base
    case(stat_in_set)
      symbols(j_last_set) = sym_count_base + j - j_last_set - 1
    end select

Here is the caller graph for this function:

Variable Documentation

c_escape

character, save dc_regex::c_escape = '#'

private

Definition at line 21 of file dc_regex.f90.

Referenced by preprocess_pattern().

  character, save    :: c_escape = '#'

sym_anychar

integer, parameter dc_regex::sym_anychar = 500

private

Definition at line 23 of file dc_regex.f90.

Referenced by hit(), and preprocess_pattern().

  integer, parameter :: sym_anychar = 500

sym_count_base

integer, parameter dc_regex::sym_count_base = 1000

private

Definition at line 36 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_count_base = 1000

sym_eol

integer, parameter dc_regex::sym_eol = -128

private

Definition at line 22 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_eol = -128

sym_headfix

integer, parameter dc_regex::sym_headfix = 540

private

Definition at line 29 of file dc_regex.f90.

Referenced by match(), and preprocess_pattern().

  integer, parameter :: sym_headfix = 540

sym_isalpha

integer, parameter dc_regex::sym_isalpha = 561

private

Definition at line 32 of file dc_regex.f90.

Referenced by hit(), and preprocess_pattern().

  integer, parameter :: sym_isalpha = 561

sym_isdigit

integer, parameter dc_regex::sym_isdigit = 560

private

Definition at line 31 of file dc_regex.f90.

Referenced by hit(), and preprocess_pattern().

  integer, parameter :: sym_isdigit = 560

sym_isspace

integer, parameter dc_regex::sym_isspace = 563

private

Definition at line 34 of file dc_regex.f90.

Referenced by hit(), and preprocess_pattern().

  integer, parameter :: sym_isspace = 563

sym_isword

integer, parameter dc_regex::sym_isword = 562

private

Definition at line 33 of file dc_regex.f90.

Referenced by hit(), and preprocess_pattern().

  integer, parameter :: sym_isword = 562

sym_isxdigit

integer, parameter dc_regex::sym_isxdigit = 564

private

Definition at line 35 of file dc_regex.f90.

Referenced by hit(), and preprocess_pattern().

  integer, parameter :: sym_isxdigit = 564

sym_normal_set

integer, parameter dc_regex::sym_normal_set = 520

private

Definition at line 27 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_normal_set = 520

sym_plus

integer, parameter dc_regex::sym_plus = 502

private

Definition at line 25 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_plus = 502

sym_question

integer, parameter dc_regex::sym_question = 501

private

Definition at line 24 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_question = 501

sym_reversed_set

integer, parameter dc_regex::sym_reversed_set = 521

private

Definition at line 28 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_reversed_set = 521

sym_star

integer, parameter dc_regex::sym_star = 503

private

Definition at line 26 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_star = 503

sym_tailfix

integer, parameter dc_regex::sym_tailfix = 541

private

Definition at line 30 of file dc_regex.f90.

Referenced by match_here(), and preprocess_pattern().

  integer, parameter :: sym_tailfix = 541