dc_hash::dchashdelete Interface Reference

Public Member Functions
subroutine	dchashdelete0 (hashv, key)

Detailed Description

Definition at line 218 of file dc_hash.f90.

Member Function/Subroutine Documentation

dchashdelete0()

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

キーを与え, ハッシュ内の関連する値を削除

hashv のキー key およびその関連する値を削除します. hashv 内に key が見つからない場合には何もしません.

key が省略される場合には hashv 内の全てのキーと値を 削除します.

Parameters

[in,out]	hashv	ハッシュ変数
[in]	key	削除するキー文字列 (省略可能)

Definition at line 582 of file dc_hash.f90.

    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
 

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_hash.f90