Hi,
try this:
exists? http://www.rebol.com/nonsense.r
Regards,
Ladislav
----- Puvodn� zpr�va -----
Od: <[EMAIL PROTECTED]>
Komu: <[EMAIL PROTECTED]>
Odesl�no: 27. �nora 2000 1:52
Predmet: [REBOL] exists? Re:
> Hi, Ladislav.
> > I know, that it has been discussed, but I think, that the
following
> improvement to Core Exists? may be useful.
> > Any suggestions are welcome.
>
> Can you give an example where REBOL's 'exists? fails, and your's
works
> better, please?
>
> Andrew Martin
> ICQ: 26227169
> http://members.xoom.com/AndrewMartin/
> -><-
>
>
>
> ----- Original Message -----
> From: <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, 27 February 2000 8:49 AM
> Subject: [REBOL] exists?
>
>
> > Hi, Rebols,
> >
> > I know, that it has been discussed, but I think, that the
> > following improvement to Core Exists? may be useful.
> > Any suggestions are welcome.
> >
> > Regards,
> > Ladislav
> >
> > exists?: func [
> > {
> > Determines if a file or URL exists.
> >
> > Checks for invalid HTML pages.
> > }
> > target [file! url!]
> > /local port comp ts
> > ][
> > if error? try [
> > port: make port! target
> > query port
> > ] [return false]
> > if not port/status [return false]
> > if port/scheme = 'HTTP [
> > ts: to string! target
> > if (to string! port/url) = ts [
> > return true
> > ]
> > comp: copy "http://"
> > if port/host [append comp port/host]
> > if comp = ts [
> > return true
> > ]
> > if (append copy comp #"/") = ts [
> > return true
> > ]
> > if port/path [append comp port/path]
> > if comp = ts [
> > return true
> > ]
> > if port/target [append comp port/target]
> > if comp = ts [
> > return true
> > ]
> > return false
> > ]
> > true
> > ]
> >
> >
>
>
>
