c_utils.F90 Source File

module core_c_utils
    use, intrinsic :: iso_c_binding, only: c_ptr, c_f_pointer, c_char, c_null_char

    use :: core_c_utils_system_info, only:c_get_os, c_get_cpu_architecture
    use :: core_c_utils_memory_stats, only:c_get_rss_kb
    use :: core_c_utils_signal_flag, only:c_setup_signal_handler, c_get_interrupted_flag

    implicit none
    public :: c_ptr_to_string

contains

    function c_ptr_to_string(ptr) result(fstr)
        type(c_ptr), intent(in) :: ptr
        character(len=:), allocatable :: fstr
        character(kind=c_char), pointer :: cstr(:)
        integer :: len, i

        ! 1) C ポインタを 256 要素の CHARACTER(C_CHAR) 配列にマップ
        call c_f_pointer(ptr, cstr, [256])

        ! 2) ヌル終端までカウント
        len = 0
        do while (len < 256 .and. cstr(len + 1) /= c_null_char)
            len = len + 1
        end do

        ! 3) allocatable 文字列を len で確保
        allocate (character(len=len) :: fstr)
        ! 4) １文字ずつコピー
        do i = 1, len
            fstr(i:i) = cstr(i)
        end do
    end function c_ptr_to_string

end module core_c_utils