dc_url::urlresolve Interface Reference

Private Member Functions
character(len=string) function	url_resolve_c (relative, base)

Detailed Description

Definition at line 66 of file dc_url.f90.

Member Function/Subroutine Documentation

url_resolve_c()

character(len = string) function dc_url::urlresolve::url_resolve_c ( character(len = *), intent(in)  relative, character(len = *), intent(in)  base  )

private

Definition at line 405 of file dc_url.f90.

    !
    ! relative で与えられる変数 URL が完全でない (ファイル名、 変数名、
    ! 属性名、入出力範囲指定のどれかが無い) 場合に、 base
    ! から補完します。
    !
    use dc_string, only: strhead
    use dc_types, only: string
    use dc_trace, only: beginsub, endsub, dbgmessage
    implicit none
    character(len = *), intent(in):: relative
    character(len = *), intent(in):: base
    character(len = STRING):: result
    integer, parameter:: file = 1, var = 2, attr = 3, ior = 4
    character(len = STRING):: rel(file:ior), bas(file:ior)
    character(3), parameter:: pathdelim = "/:" // achar(94)
    integer:: idir_r, idir_b
  continue
    call beginsub('urlresolve', 'rel=<%c> base=<%c>', c1=relative, c2=base)
    call urlsplit(trim(relative), file=rel(file), var=rel(var), &
      & attr=rel(attr), iorange=rel(ior))
    call dbgmessage('rel -> file=<%c> var=<%c> attr=<%c>', &
      & c1=trim(rel(file)), c2=trim(rel(var)), &
      & c3=(trim(rel(attr)) // '> ior=<' // trim(rel(ior))))
    call urlsplit(base, file=bas(file), var=bas(var), &
      & attr=bas(attr), iorange=bas(ior))
    call dbgmessage('base -> file=<%s> var=<%s> attr=<%s> ior=<%s>', &
      & c1=trim(bas(file)), c2=trim(bas(var)), &
      & c3=(trim(bas(attr)) // '> ior=<' // trim(bas(ior))))
    ! --- ファイル名を欠くばあいは単に補う ---
    if (rel(file) == "") then
      rel(file) = bas(file)
      if (rel(var) == "") &
        & rel(var) = bas(var)
      result = urlmerge(file=rel(file), var=rel(var), &
        & attr=rel(attr), iorange=rel(ior))
      call endsub('urlresolve', '1 result=%c', c1=trim(result))
      return
    endif
    ! --- 絶対パス (と見られる) ファイル名はそのまま使用 ---
    if (strhead(rel(file), "file:") &
      & .OR. strhead(rel(file), "http:") &
      & .OR. strhead(rel(file), "ftp:") &
      & .OR. strhead(rel(file), "news:") &
      & .OR. strhead(rel(file), "www") &
      & .OR. strhead(rel(file), "/") &
      & .OR. strhead(rel(file), achar(94)) &
      & .OR. rel(file)(2:2) == ":" &
      ) then
      result = relative
      call endsub('urlresolve', '2 result=%c', c1=trim(result))
      return
    endif
    ! ディレクトリ名の取り出し
    idir_b = scan(bas(file), pathdelim, back=.true.) 
    if (idir_b == 0) then
      ! が、できなければ、（エラーとすべきかもしれぬが）
      ! 相対パスをそのまま使用
      result = relative
      call endsub('urlresolve', '3 result=%c', c1=trim(result))
      return
    endif
    ! 相対パスのほうのディレクトリ名の取り出し
    idir_r = scan(rel(file), pathdelim, back=.true.)
    if (idir_r == 0) then
      ! ができなければ全体を使用
      idir_r = 1
    endif
    result = base(1: idir_b) // relative(idir_r: )
    call endsub('urlresolve', '4 result=%c', c1=trim(result))

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_url.f90