Re: can i make this better?
- Posted by "Greg Haberek" <g.haberek at comcast.net> Feb 07, 2004
- 500 views
> function compare_dir(object x1, object x2)
> integer ret
> integer d1,d2
>
> d1 = (find('d', x1[D_ATTRIBUTES]) != 0)
> d2 = (find('d', x2[D_ATTRIBUTES]) != 0)
> if d1 = d2 then
> ret = compare(lower(x1[D_NAME]), lower(x2[D_NAME]))
> else
> ret = d2 - d1
> end if
>
> return ret
> end function
WOW! Thanks!
~Greg
