get_top_long_vvect Subroutine

  1. aot_vector_module.f90
  2. aot_vector_module
  3. get_top_long_vvect

private subroutine get_top_long_vvect(val, ErrCode, maxlength, L, default)

Arguments

Type IntentOptional AttributesName
integer(kind=long_k), intent(out), allocatable:: val(:)

Vector read from the Lua table, will have the same length as the table but not exceed maxlength, if provided.
integer, intent(out), allocatable:: ErrCode(:)

Error code describing problems encountered in each of the components. Will be allocated with the same length as the returned vector. If the complete vector is not given in the Lua script, and no default is provided, an zerosized array will be returned.
integer, intent(in) :: maxlength

Maximal length to allocate for the vector.
type(flu_State) :: L

Handle to the lua script
integer(kind=long_k), intent(in), optional :: default(:)

A default vector to use, if no proper definition is found. Components will be filled with the help of this default definition.

Calls

proc~~get_top_long_vvect~~CallsGraph proc~get_top_long_vvect get_top_long_vvect proc~aot_table_length aot_table_length proc~get_top_long_vvect->proc~aot_table_length proc~aot_table_top aot_table_top proc~get_top_long_vvect->proc~aot_table_top proc~flu_isnumber flu_isnumber proc~get_top_long_vvect->proc~flu_isnumber proc~flu_next flu_next proc~get_top_long_vvect->proc~flu_next proc~aot_table_first aot_table_first proc~get_top_long_vvect->proc~aot_table_first proc~aot_table_close aot_table_close proc~get_top_long_vvect->proc~aot_table_close interface~aot_top_get_val~2 aot_top_get_val proc~get_top_long_vvect->interface~aot_top_get_val~2 proc~aot_table_length->proc~flu_next proc~aot_table_length->proc~aot_table_first proc~flu_pop flu_pop proc~aot_table_length->proc~flu_pop 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~aot_table_top->proc~flu_pop interface~lua_isnumber lua_isNumber proc~flu_isnumber->interface~lua_isnumber interface~lua_next lua_next proc~flu_next->interface~lua_next proc~aot_table_first->proc~flu_next proc~flu_pushnil flu_pushnil proc~aot_table_first->proc~flu_pushnil proc~flu_settop flu_settop proc~aot_table_close->proc~flu_settop proc~get_top_extdouble_v get_top_extdouble_v interface~aot_top_get_val~2->proc~get_top_extdouble_v interface~lua_gettop lua_gettop proc~flu_gettop->interface~lua_gettop interface~lua_pushnil lua_pushnil proc~flu_pushnil->interface~lua_pushnil interface~lua_type lua_type proc~flu_istable->interface~lua_type proc~get_top_extdouble_v->proc~aot_table_length proc~get_top_extdouble_v->proc~aot_table_top proc~get_top_extdouble_v->proc~flu_next proc~get_top_extdouble_v->proc~aot_table_first proc~get_top_extdouble_v->proc~aot_table_close interface~aot_top_get_val aot_top_get_val proc~get_top_extdouble_v->interface~aot_top_get_val interface~lua_settop lua_settop proc~flu_settop->interface~lua_settop proc~flu_pop->interface~lua_settop proc~aot_top_get_double aot_top_get_double interface~aot_top_get_val->proc~aot_top_get_double proc~aot_top_get_integer aot_top_get_integer interface~aot_top_get_val->proc~aot_top_get_integer proc~aot_top_get_logical aot_top_get_logical interface~aot_top_get_val->proc~aot_top_get_logical proc~aot_top_get_long aot_top_get_long interface~aot_top_get_val->proc~aot_top_get_long proc~aot_top_get_real aot_top_get_real interface~aot_top_get_val->proc~aot_top_get_real proc~aot_top_get_string aot_top_get_string interface~aot_top_get_val->proc~aot_top_get_string proc~aot_top_get_userdata aot_top_get_userdata interface~aot_top_get_val->proc~aot_top_get_userdata proc~aot_top_get_double->proc~flu_isnumber proc~aot_top_get_double->proc~flu_pop proc~flu_isnoneornil flu_isNoneOrNil proc~aot_top_get_double->proc~flu_isnoneornil proc~flu_todouble flu_todouble proc~aot_top_get_double->proc~flu_todouble proc~aot_top_get_integer->proc~flu_isnumber proc~aot_top_get_integer->proc~flu_pop proc~aot_top_get_integer->proc~flu_isnoneornil proc~aot_top_get_integer->proc~flu_todouble proc~aot_top_get_logical->proc~flu_pop proc~flu_toboolean flu_toBoolean proc~aot_top_get_logical->proc~flu_toboolean proc~flu_isboolean flu_isBoolean proc~aot_top_get_logical->proc~flu_isboolean proc~aot_top_get_logical->proc~flu_isnoneornil proc~aot_top_get_long->proc~flu_isnumber proc~aot_top_get_long->proc~flu_pop proc~aot_top_get_long->proc~flu_isnoneornil proc~aot_top_get_long->proc~flu_todouble proc~aot_top_get_real->proc~flu_isnumber proc~aot_top_get_real->proc~flu_pop proc~aot_top_get_real->proc~flu_isnoneornil proc~flu_tonumber flu_tonumber proc~aot_top_get_real->proc~flu_tonumber proc~aot_top_get_string->proc~flu_pop proc~flu_tolstring flu_tolstring proc~aot_top_get_string->proc~flu_tolstring proc~aot_top_get_string->proc~flu_isnoneornil proc~flu_isstring flu_isString proc~aot_top_get_string->proc~flu_isstring proc~aot_top_get_userdata->proc~flu_pop proc~aot_top_get_userdata->proc~flu_isnoneornil proc~flu_islightuserdata flu_islightuserdata proc~aot_top_get_userdata->proc~flu_islightuserdata proc~flu_touserdata flu_touserdata proc~aot_top_get_userdata->proc~flu_touserdata interface~lua_toboolean lua_toboolean proc~flu_toboolean->interface~lua_toboolean proc~flu_isboolean->interface~lua_type interface~lua_tolstring lua_tolstring proc~flu_tolstring->interface~lua_tolstring proc~flu_isnoneornil->interface~lua_type proc~flu_islightuserdata->interface~lua_type interface~lua_touserdata lua_touserdata proc~flu_touserdata->interface~lua_touserdata interface~lua_tonumberx lua_tonumberx proc~flu_todouble->interface~lua_tonumberx interface~lua_isstring lua_isString proc~flu_isstring->interface~lua_isstring proc~flu_tonumber->interface~lua_tonumberx

Called by

proc~~get_top_long_vvect~~CalledByGraph proc~get_top_long_vvect get_top_long_vvect interface~aot_top_get_val~3 aot_top_get_val interface~aot_top_get_val~3->proc~get_top_long_vvect

Contents

Source Code

get_top_long_vvect

Source Code

  subroutine get_top_long_vvect(val, ErrCode, maxlength, L, default)
    type(flu_State) :: L !! Handle to the lua script

    !> Vector read from the Lua table, will have the same length as the table
    !! but not exceed maxlength, if provided.
    integer(kind=long_k), intent(out), allocatable :: val(:)

    !> Error code describing problems encountered in each of the components.
    !! Will be allocated with the same length as the returned vector.
    !! If the complete vector is not given in the Lua script, and no default
    !! is provided, an zerosized array will be returned.
    integer, intent(out), allocatable :: ErrCode(:)

    !> Maximal length to allocate for the vector.
    integer, intent(in) :: maxlength

    !> A default vector to use, if no proper definition is found.
    !! Components will be filled with the help of this default definition.
    integer(kind=long_k), intent(in), optional :: default(:)

    integer :: vect_handle
    integer :: table_len, vect_len, def_len
    integer :: vect_lb
    integer :: iComp

    vect_handle = 0

    ! Find the length of the default value, if it is not provided, its 0.
    def_len = 0
    if (present(default)) def_len = size(default)

    is_scal: if (flu_isNumber(L, -1)) then

      ! Not a table but a scalar number!
      allocate(val(1))
      allocate(errCode(1))

      if (def_len >= 1) then
        call aot_top_get_val(val(1), ErrCode(1), L, &
          &                  default(1)             )
      else
        call aot_top_get_val( val(1), ErrCode(1), L )
      end if

    else is_scal

      ! Try to interpret the top entry on the stack as a table
      vect_handle = aot_table_top(L=L)
      table_len = aot_table_length(L=L, thandle=vect_handle)

      ! The size of the vector is limited by maxlength.
      vect_len = min(maxlength, table_len)

      ! Now parse the table with the vector entries.
      if (aot_table_first(L, vect_handle)) then

        allocate(val(vect_len))
        allocate(errCode(vect_len))

        ErrCode = 0

        ! Up to the length of the default value, provide the default settings.
        do iComp=1,def_len
          call aot_top_get_val(val(iComp), ErrCode(iComp), L, &
            &                  default(iComp))
          if (.not. flu_next(L, vect_handle)) exit
        end do

        vect_lb = def_len+1
        ! After def_len entries no default values for the components are
        ! available anymore, proceed without a default setting for the rest.
        do iComp=vect_lb,vect_len
          call aot_top_get_val(val(iComp), ErrCode(iComp), L)
          if (.not. flu_next(L, vect_handle)) exit
        end do

      else

          ! No vector definition found in the Lua script, use the default.
          if (present(default)) then
            allocate(val(def_len))
            allocate(errCode(def_len))
            val(:) = default
            ErrCode = ibSet(0, aoterr_NonExistent)
          else
            ! No vector definition in the Lua script and no default provided,
            ! return an empty array.
            allocate(val(0))
            allocate(errCode(0))
          end if

      end if

    end if is_scal

    call aot_table_close(L, vect_handle)

  end subroutine get_top_long_vvect