dc_hash Module Reference

Functions/Subroutines
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