aot_top_get_real Subroutine

private subroutine aot_top_get_real(val, ErrCode, L, default)

Interpret topmost entry on Lua stack as a single precision real.

Arguments

Type IntentOptional Attributes Name
real(kind=single_k), intent(out) :: val

Value of the Variable in the script
integer, intent(out) :: ErrCode

Error code to indicate what kind of problem might have occured.
type(flu_State) :: L

Handle to the Lua script
real(kind=single_k), intent(in), optional :: default

Some default value, that should be used, if the variable is not set in the Lua script.

Calls

proc~~aot_top_get_real~~CallsGraph proc~aot_top_get_real aot_top_get_real proc~flu_isnoneornil flu_isNoneOrNil proc~aot_top_get_real->proc~flu_isnoneornil proc~flu_isnumber flu_isnumber proc~aot_top_get_real->proc~flu_isnumber proc~flu_pop flu_pop proc~aot_top_get_real->proc~flu_pop proc~flu_tonumber flu_tonumber proc~aot_top_get_real->proc~flu_tonumber interface~lua_type lua_type proc~flu_isnoneornil->interface~lua_type interface~lua_isnumber lua_isNumber proc~flu_isnumber->interface~lua_isnumber interface~lua_settop lua_settop proc~flu_pop->interface~lua_settop interface~lua_tonumberx lua_tonumberx proc~flu_tonumber->interface~lua_tonumberx

Called by

proc~~aot_top_get_real~~CalledByGraph proc~aot_top_get_real aot_top_get_real interface~aot_top_get_val aot_top_get_val interface~aot_top_get_val->proc~aot_top_get_real

Source Code

  subroutine aot_top_get_real(val, ErrCode, L, default)
    type(flu_State) :: L !! Handle to the Lua script

    !> Value of the Variable in the script
    real(kind=single_k), intent(out) :: val

    !> Error code to indicate what kind of problem might have occured.
    integer, intent(out) :: ErrCode

    !> Some default value, that should be used, if the variable is not set in
    !! the Lua script.
    real(kind=single_k), optional, intent(in) :: default

    logical :: not_retrievable

    ErrCode = 0
    not_retrievable = .false.

    if (flu_isNoneOrNil(L, -1)) then
      ErrCode = ibSet(ErrCode, aoterr_NonExistent)
      not_retrievable = .true.
    else
      if (flu_isNumber(L, -1)) then
        val = flu_toNumber(L, -1)
      else
        ErrCode = ibSet(ErrCode, aoterr_WrongType)
        ErrCode = ibSet(ErrCode, aoterr_Fatal)
        not_retrievable = .true.
      end if
    end if

    if (not_retrievable) then
      if (present(default)) then
        val = default
      else
        ErrCode = ibSet(ErrCode, aoterr_Fatal)
      end if
    end if
    call flu_pop(L)

  end subroutine aot_top_get_real