Rebol Programming/path-thru

= USAGE: = PATH-THRU url

= DESCRIPTION: = Return a path relative to the disk cache.

PATH-THRU is a function value. = ARGUMENTS: =
 * url -- (Type: any)

= SOURCE CODE = 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 ""]] ]