Allen, Elan, Nenad,
> Hi Anton, Elan, Nenad,
>
> That particular parse-url is in the system/view/vid object.
> read-via is also
> in the same object. (it is not the same as the one in net-utils, though it
> does call that one)
How did you discover this?
Did you know 'parse-url already or did you have to search?
How would you go about searching for a word
whose value is defined in some other context?
Is there a way of determining which
context a word's value is defined in?
Is there a way of listing all contexts?
Anton.
> >> f: get in system/view/vid 'parse-url
> >> source f
> f: func [url /local purl][
> net-utils/url-parser/parse-url
> purl: context [user: pass: host: port-id: path: target: none] url
> if all [purl/target purl/host] [purl]
> ]
>
> To explore Vid a bit more you can print it to a file.
>
> echo %vid.txt
> probe system/view/vid
> echo none
>
> ;Happy reading!
>
> Cheers,
>
> Allen K
> ----- Original Message -----
> From: "Anton" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, January 31, 2001 1:33 AM
> Subject: [REBOL] 'parse-url - where defined?
>
>
> > Hi,
> >
> > Looking at
> > source read-via
> >
> > It uses 'parse-url in the second line of read-via's function body.
> > Where does parse-url come from?
> > On the console, parse-url has no value.
> > How then, does read-via work?
> >
> > my system/version == 0.10.38.3.1
> >
> > >> parse-url
> > ** Script Error: parse-url has no value.
> > ** Where: parse-url
> >
> > >> source read-via
> > read-via: func [
> > {Read a file via the cache. Returns binary. Failure returns error.}
> > url [url! file!]
> > /progress callfunc port-hand
> > /update "Force update from source site"
> > /local path file data purl loc-path
> > ][
> > if file? url [return read url]
> > if none? purl: parse-url url [return none]
> > loc-path: rejoin [system/options/home/public "/" purl/host "/" any
> > [purl/path ""]]
> > file: join loc-path purl/target
> > path: rejoin ["/" any [purl/path ""] purl/target]
> > either all [not update exists? file] [data: read/binary file] [
> > data: either progress [read-net/progress url :callfunc
> port-hand]
> > [read-net url]
> > if data [
> > if not exists? loc-path [make-dir/deep loc-path]
> > write/binary file data
> > ]
> > ]
> > data
> > ]
> >
> > Anton.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
