Rebol Programming/path-thru
USAGE:
editPATH-THRU url
DESCRIPTION:
editReturn a path relative to the disk cache.
PATH-THRU is a function value.
ARGUMENTS:
edit- url -- (Type: any)
SOURCE CODE
editpath-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 ""]] ]