flu_setfield Subroutine

public subroutine flu_setfield(L, index, k)

Arguments

Type IntentOptional Attributes Name
type(flu_State) :: L
integer :: index
character(len=*) :: k

Calls

proc~~flu_setfield~~CallsGraph proc~flu_setfield flu_setfield interface~lua_setfield lua_setfield proc~flu_setfield->interface~lua_setfield

Called by

proc~~flu_setfield~~CalledByGraph proc~flu_setfield flu_setfield proc~aot_table_set_top aot_table_set_top proc~aot_table_set_top->proc~flu_setfield proc~set_table_double set_table_double proc~set_table_double->proc~flu_setfield proc~set_table_extdouble set_table_extdouble proc~set_table_extdouble->proc~flu_setfield proc~set_table_integer set_table_integer proc~set_table_integer->proc~flu_setfield proc~set_table_logical set_table_logical proc~set_table_logical->proc~flu_setfield proc~set_table_long set_table_long proc~set_table_long->proc~flu_setfield proc~set_table_quadruple set_table_quadruple proc~set_table_quadruple->proc~flu_setfield proc~set_table_real set_table_real proc~set_table_real->proc~flu_setfield proc~set_table_string set_table_string proc~set_table_string->proc~flu_setfield proc~set_table_userdata set_table_userdata proc~set_table_userdata->proc~flu_setfield interface~aot_table_set_val aot_table_set_val interface~aot_table_set_val->proc~set_table_extdouble interface~aot_table_set_val~2 aot_table_set_val interface~aot_table_set_val~2->proc~set_table_double interface~aot_table_set_val~2->proc~set_table_integer interface~aot_table_set_val~2->proc~set_table_logical interface~aot_table_set_val~2->proc~set_table_long interface~aot_table_set_val~2->proc~set_table_real interface~aot_table_set_val~2->proc~set_table_string interface~aot_table_set_val~2->proc~set_table_userdata interface~aot_table_set_val~3 aot_table_set_val interface~aot_table_set_val~3->proc~set_table_quadruple proc~aot_require_buffer aot_require_buffer proc~aot_require_buffer->interface~aot_table_set_val

Source Code

  subroutine flu_setfield(L, index, k)
    type(flu_State)  :: L
    integer          :: index
    character(len=*) :: k

    integer(kind=c_int) :: c_index
    character(len=len_trim(k)+1) :: c_k

    c_k = trim(k) // c_null_char
    c_index = index
    call lua_setfield(L%state, c_index, c_k)
  end subroutine flu_setfield