aot_init_path Subroutine

public subroutine aot_init_path(me, Filename)

This subroutine initializes a path object.

This is done by setting the given file name as reference to the script, to look the path up in and emptying the path completely.

Arguments

Type IntentOptional Attributes Name
type(aot_path_type), intent(out) :: me

Path object to initialize
character(len=*), intent(in), optional :: Filename

Filename of the Lua script, this path is located in

Calls

proc~~aot_init_path~~CallsGraph proc~aot_init_path aot_init_path proc~aot_fin_path aot_fin_path proc~aot_init_path->proc~aot_fin_path proc~aot_path_delnode aot_path_delNode proc~aot_fin_path->proc~aot_path_delnode

Source Code

  subroutine aot_init_path(me, Filename)
    !> Path object to initialize
    type(aot_path_type), intent(out) :: me
    !> Filename of the Lua script, this path is located in
    character(len=*), optional, intent(in) :: Filename

    ! Finalize the path first, just in case it might have had any entries.
    call aot_fin_path(me)
    if (present(Filename)) then
      me%LuaFilename = adjustl(trim(Filename))
    else
      me%LuaFilename = ''
    end if
    me%rootHandle = 0
  end subroutine aot_init_path