Rebol 程式設計/path-thru

用法

PATH-THRU url 

描述

返回相對於磁碟快取的路徑。

PATH-THRU 是一個函式值。

引數

• url -- (型別：任何)

原始碼

path-thru: func [
    "Return a path relative to the disk cache." 
    url /local purl
][
    if file? url [return url] 
    if not all [purl: decode-url url purl/host] [return none] 
    rejoin [view-root/public slash purl/host slash any [purl/path ""] any [purl/target ""]]
]