aot_table_top Function

public function aot_table_top(L) result(thandle)

Return the position at the top of the stack as a table handle.

If it actually exists and is a table, this handle can be used for further operations on that table. Otherwise a 0 will be returned.

Arguments

Type IntentOptional Attributes Name
type(flu_State) :: L

Handle for the Lua script.

Return Value integer

A handle for the table on the top of the stack to access it.


Calls

proc~~aot_table_top~~CallsGraph proc~aot_table_top aot_table_top proc~flu_gettop flu_gettop proc~aot_table_top->proc~flu_gettop proc~flu_istable flu_isTable proc~aot_table_top->proc~flu_istable proc~flu_pop flu_pop proc~aot_table_top->proc~flu_pop interface~lua_gettop lua_gettop proc~flu_gettop->interface~lua_gettop interface~lua_type lua_type proc~flu_istable->interface~lua_type interface~lua_settop lua_settop proc~flu_pop->interface~lua_settop

Called by

proc~~aot_table_top~~CalledByGraph proc~aot_table_top aot_table_top proc~aot_table_open aot_table_open proc~aot_table_open->proc~aot_table_top proc~get_top_double_v get_top_double_v proc~get_top_double_v->proc~aot_table_top proc~get_top_double_vvect get_top_double_vvect proc~get_top_double_vvect->proc~aot_table_top proc~get_top_extdouble_v get_top_extdouble_v proc~get_top_extdouble_v->proc~aot_table_top proc~get_top_extdouble_vvect get_top_extdouble_vvect proc~get_top_extdouble_vvect->proc~aot_table_top proc~get_top_integer_v get_top_integer_v proc~get_top_integer_v->proc~aot_table_top proc~get_top_integer_vvect get_top_integer_vvect proc~get_top_integer_vvect->proc~aot_table_top proc~get_top_logical_v get_top_logical_v proc~get_top_logical_v->proc~aot_table_top proc~get_top_logical_vvect get_top_logical_vvect proc~get_top_logical_vvect->proc~aot_table_top proc~get_top_long_v get_top_long_v proc~get_top_long_v->proc~aot_table_top proc~get_top_long_vvect get_top_long_vvect proc~get_top_long_vvect->proc~aot_table_top proc~get_top_quadruple_v get_top_quadruple_v proc~get_top_quadruple_v->proc~aot_table_top proc~get_top_quadruple_vvect get_top_quadruple_vvect proc~get_top_quadruple_vvect->proc~aot_table_top proc~get_top_real_v get_top_real_v proc~get_top_real_v->proc~aot_table_top proc~get_top_real_vvect get_top_real_vvect proc~get_top_real_vvect->proc~aot_table_top proc~get_top_string_v get_top_string_v proc~get_top_string_v->proc~aot_table_top proc~get_top_string_vvect get_top_string_vvect proc~get_top_string_vvect->proc~aot_table_top interface~aot_top_get_val~2 aot_top_get_val interface~aot_top_get_val~2->proc~get_top_quadruple_vvect interface~aot_top_get_val~3 aot_top_get_val interface~aot_top_get_val~3->proc~get_top_quadruple_v interface~aot_top_get_val~4 aot_top_get_val interface~aot_top_get_val~4->proc~get_top_double_vvect interface~aot_top_get_val~4->proc~get_top_integer_vvect interface~aot_top_get_val~4->proc~get_top_logical_vvect interface~aot_top_get_val~4->proc~get_top_long_vvect interface~aot_top_get_val~4->proc~get_top_real_vvect interface~aot_top_get_val~4->proc~get_top_string_vvect interface~aot_top_get_val~5 aot_top_get_val interface~aot_top_get_val~5->proc~get_top_double_v interface~aot_top_get_val~5->proc~get_top_integer_v interface~aot_top_get_val~5->proc~get_top_logical_v interface~aot_top_get_val~5->proc~get_top_long_v interface~aot_top_get_val~5->proc~get_top_real_v interface~aot_top_get_val~5->proc~get_top_string_v interface~aot_top_get_val~6 aot_top_get_val interface~aot_top_get_val~6->proc~get_top_extdouble_vvect interface~aot_top_get_val~7 aot_top_get_val interface~aot_top_get_val~7->proc~get_top_extdouble_v proc~aot_path_open_table aot_path_open_table proc~aot_path_open_table->proc~aot_table_open proc~aot_require_buffer aot_require_buffer proc~aot_require_buffer->proc~aot_table_open 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 aot_table_top(L) result(thandle)
    type(flu_state) :: L !! Handle for the Lua script.

    !> A handle for the table on the top of the stack to access it.
    integer :: thandle

    if (.not. flu_isTable(L, -1)) then
      thandle = 0
      call flu_pop(L)
    else
      thandle = flu_gettop(L)
    end if
  end function aot_table_top