flu_tolstring Function

public function flu_tolstring(L, index, len) result(string)

Arguments

Type IntentOptional Attributes Name
type(flu_State) :: L
integer :: index
integer :: len

Return Value character(len=1), pointer, dimension(:)


Calls

proc~~flu_tolstring~~CallsGraph proc~flu_tolstring flu_tolstring interface~lua_tolstring lua_tolstring proc~flu_tolstring->interface~lua_tolstring

Called by

proc~~flu_tolstring~~CalledByGraph proc~flu_tolstring flu_tolstring proc~aot_err_handler aot_err_handler proc~aot_err_handler->proc~flu_tolstring proc~aot_top_get_string aot_top_get_string proc~aot_top_get_string->proc~flu_tolstring program~test test program~test->proc~flu_tolstring interface~aot_top_get_val~9 aot_top_get_val interface~aot_top_get_val~9->proc~aot_top_get_string proc~aot_file_to_buffer aot_file_to_buffer proc~aot_file_to_buffer->proc~aot_err_handler proc~aot_fun_do aot_fun_do proc~aot_fun_do->proc~aot_err_handler proc~open_config_buffer open_config_buffer proc~open_config_buffer->proc~aot_err_handler proc~open_config_chunk open_config_chunk proc~open_config_chunk->proc~aot_err_handler proc~open_config_file open_config_file proc~open_config_file->proc~aot_err_handler proc~aot_path_open_table aot_path_open_table proc~aot_path_open_table->proc~open_config_file proc~aot_require_buffer aot_require_buffer proc~aot_require_buffer->proc~open_config_buffer interface~aot_path_open aot_path_open interface~aot_path_open->proc~aot_path_open_table proc~aot_path_open_fun aot_path_open_fun interface~aot_path_open->proc~aot_path_open_fun proc~aot_path_open_fun->proc~aot_path_open_table

Source Code

  function flu_tolstring(L, index, len) result(string)
    type(flu_State) :: L
    integer :: index
    integer :: len
    character,pointer,dimension(:) :: string

    integer :: string_shape(1)
    integer(kind=c_int) :: c_index
    integer(kind=c_size_t) :: c_len
    type(c_ptr) :: c_string

    c_index = index
    c_string = lua_tolstring(L%state, c_index, c_len)
    len = int(c_len,kind=kind(len))
    string_shape(1) = len
    call c_f_pointer(c_string, string, string_shape)
  end function flu_tolstring