(find-entry-url-full) ( namespace url zim -- entry/f )

Vocabulary

zim

Inputs

namespace	an object
url	an object
zim	an object

Outputs

entry/f

an object

Definition

USING: accessors binary-search combinators.short-circuit kernel
math.order sequences ;

IN: zim

:: (find-entry-url-full) ( namespace url zim -- entry/f )
    f zim header>> entry-count>> <iota> [
        nip zim read-entry-index namespace over namespace>> <=>
        dup +eq+ = [ drop url over url>> <=> ] when
    ] search 2drop dup
    { [ ] [ namespace>> namespace = ] [ url>> url = ] } 1&&
    [ drop f ] unless ;