dc_hash Module Reference

Data Types
interface	dchashdelete
interface	dchashget
interface	dchashnext
interface	dchashnumber
interface	dchashput
interface	dchashputline
interface	dchashrewind
interface	delete
interface	get
type	hash
type	hash_internal
interface	next
interface	number
interface	put
interface	putline
interface	rewind

Functions/Subroutines
subroutine	dchashput0 (hashv, key, value)
integer function	dchashnumber0 (hashv)
subroutine	dchashrewind0 (hashv)
subroutine	dchashnext0 (hashv, key, value, end)
subroutine	dchashputline0 (hashv)
subroutine	dchashget0 (hashv, key, value, found)
subroutine	dchashdelete0 (hashv, key)

Function/Subroutine Documentation

dchashdelete0()

subroutine dc_hash::dchashdelete0	(	type(hash), intent(inout)	hashv,
		character(*), intent(in), optional	key
	)

Definition at line 362 of file dc_hash.f90.

    !
    ! *hashv* のキー *key* およびその関連する値を削除します.
    ! *hashv* 内に *key* が見つからない場合には何もしません.
    !
    ! *key* が省略される場合には *hashv* 内の全てのキーと値を
    ! 削除します.
    !
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(in), optional :: key
    type(hash_internal), pointer :: hash_table_tmp(:) => null()
    integer :: table_size, i, j
    logical :: found
    character(STRING) :: search_value
  continue
    if (present(key)) then
      call dchashget(hashv, key, search_value, found)
      table_size = dchashnumber(hashv)
      if (found .and. table_size > 1) then
        allocate(hash_table_tmp(table_size))
        hash_table_tmp = hashv % hash_table
        deallocate(hashv % hash_table)
        allocate(hashv % hash_table(table_size - 1))
        j = 1
        do i = 1, table_size
          if (trim(hash_table_tmp(i) % key) /= trim(key)) then
            hashv % hash_table(j) % key = hash_table_tmp(i) % key
            hashv % hash_table(j) % value = hash_table_tmp(i) % value
            j = j + 1
          end if
        end do
        
        deallocate(hash_table_tmp)
      elseif (found .and. table_size == 1) then
        deallocate(hashv % hash_table)
      end if
    else
      if (associated(hashv % hash_table)) deallocate(hashv % hash_table)
    end if

dchashget0()

subroutine dc_hash::dchashget0	(	type(hash), intent(inout)	hashv,
		character(*), intent(in)	key,
		character(*), intent(out)	value,
		logical, intent(out), optional	found
	)

Definition at line 326 of file dc_hash.f90.

References dc_types::string.

    !
    ! *hashv* のキー *key* に関連する値を *value* に返します.
    ! *key* に関連する値が存在しない場合は *value* に
    ! 空文字を返します.
    !
    ! *found* を与えると, *key* に関連する値が見つからなかった
    ! 場合に .false. を返します.
    !
    use dc_types, only: string
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(in)  :: key
    character(*), intent(out) :: value
    logical, intent(out), optional :: found
    character(STRING) :: search_key, search_value
    logical :: end
  continue
    call dchashrewind(hashv)
    do
      call dchashnext(hashv, search_key, search_value, end)
      if (end) then
        value = ''
        if (present(found)) found = .false.
        exit
      end if

      if (trim(search_key) == trim(key)) then
        value = search_value
        if (present(found)) found = .true.
        exit
      end if
    enddo

dchashnext0()

subroutine dc_hash::dchashnext0 ( type(hash), intent(inout)  hashv, character(*), intent(out)  key, character(*), intent(out), optional  value, logical, intent(out)  end  )

private

Definition at line 267 of file dc_hash.f90.

    !

    ! *hashv* の内容を *key* と *value* に返します.
    ! 詳しくは DCHashRewind を参照してください.
    !
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(out) :: key
    character(*), intent(out), optional :: value
    logical, intent(out) :: end
    integer :: table_size
    character(STRING) :: value_tmp
  continue
    table_size = dchashnumber(hashv)
    if (table_size < hashv % search_index) then
      key = ''
      value_tmp = ''
      end = .true.
    else
      key = hashv % hash_table(hashv % search_index) % key
      value_tmp = hashv % hash_table(hashv % search_index) % value
      end = .false.
      hashv % search_index = hashv % search_index + 1
    end if
    if (present(value)) then
      value = value_tmp
    end if

dchashnumber0()

integer function dc_hash::dchashnumber0 ( type(hash), intent(in)  hashv )

private

Definition at line 222 of file dc_hash.f90.

    !
    ! *hashv* のサイズを返します.
    !
    implicit none
    type(hash), intent(in) :: hashv
    integer :: result
  continue
    if (associated(hashv % hash_table)) then
      result = size(hashv % hash_table)
    else
      result = 0
    end if

dchashput0()

subroutine dc_hash::dchashput0 ( type(hash), intent(inout)  hashv, character(*), intent(in)  key, character(*), intent(in)  value  )

private

Definition at line 181 of file dc_hash.f90.

    !
    ! *hashv* のキー *key* に値 *value* を関連付けます.
    !
    implicit none
    type(hash), intent(inout) :: hashv
    character(*), intent(in) :: key, value
    type(hash_internal), pointer :: hash_table_tmp(:) => null()
    integer :: table_size, new_index, i
    logical :: found
    character(STRING) :: search_value
  continue
    call dchashget(hashv, key, search_value, found)
    if (.not. found) then
      table_size = dchashnumber(hashv)
      if (table_size > 0) then
        allocate(hash_table_tmp(table_size))
        hash_table_tmp = hashv % hash_table
        deallocate(hashv % hash_table)
        allocate(hashv % hash_table(table_size + 1))
        hashv % hash_table(1:table_size) = hash_table_tmp(1:table_size)
        deallocate(hash_table_tmp)
        new_index = table_size + 1
      else
        allocate(hashv % hash_table(1))
        new_index = 1
      end if

      hashv % hash_table(new_index) % key = key
      hashv % hash_table(new_index) % value = value
    else
      do i = 1, size(hashv % hash_table)
        if (trim(hashv % hash_table(i) % key) == trim(key)) then
          hashv % hash_table(i) % value = value
        end if
      end do
    end if

dchashputline0()

subroutine dc_hash::dchashputline0 ( type(hash), intent(in)  hashv )

private

Definition at line 299 of file dc_hash.f90.

References dc_string::joinchar(), and dc_types::string.

    !
    ! *hashv* の内容を標準出力に表示します.
    !
    use dc_types, only: string
    use dc_string, only: printf, joinchar
    implicit none
    type(hash), intent(in) :: hashv
    type(hash) :: hashv_tmp
    character(len = STRING):: key, value
    logical:: end
  continue
    hashv_tmp = hashv

    call printf(6, '#<HASH:: ')
    call dchashrewind(hashv_tmp)
    do
      call dchashnext(hashv_tmp, key, value, end)
      if (end) exit
      call printf(6, '         "%c" -> "%c",', &
        & c1=trim(key), c2=trim(value))
    enddo
    call printf(6, '> ')

Here is the call graph for this function:

dchashrewind0()

subroutine dc_hash::dchashrewind0 ( type(hash), intent(inout)  hashv )

private

Definition at line 237 of file dc_hash.f90.

    !
    ! 主にハッシュの内容を取り出すことを目的として, 
    ! *hashv* の巻き戻しを行います. DCHashNext との組み合わせによって
    ! キーと値のリストを取得すること可能です.
    !
    ! 以下のサンプルソースコードを参照ください.
    !
    !    program hash_sample
    !      use dc_type
    !      use dc_hash
    !      type(HASH):: hashv
    !      character(len = STRING):: key, value
    !      logical:: end
    !
    !      call DCHashRewind( hashv ) ! (inout)
    !      do
    !        call DCHashNext( hashv = hashv, &        ! (inout)
    !          & key = key, value = value, end = end) ! (out)
    !        if (end) exit
    !        write(*,*) 'key=' // trim(key) // ', value=' // trim(value)
    !      enddo
    !    end program hash_sample
    !
    implicit none
    type(hash), intent(inout) :: hashv
  continue
    hashv % search_index = 1