xml-find-by ( obj quot: ( obj -- ? ) -- tag/f )

Vocabulary

modern.html

Inputs

obj	an object
quot	a quotation with stack effect ( obj -- ? )

Outputs

tag/f

an object

Definition

IN: modern.html

GENERIC#: xml-find-by 1 ( obj quot: ( obj -- ? ) -- tag/f )

Methods

USING: kernel modern.html ;

M: close-tag xml-find-by 2drop f ;


USING: kernel modern.html ;

M: doctype xml-find-by 2drop f ;


USING: combinators kernel modern.html ;

M: open-tag xml-find-by
    2dup ( obj -- ? ) call-effect
    [ drop ] [ [ get-children ] dip xml-find-by ] if ; inline


USING: combinators kernel modern.html ;

M: self-close-tag xml-find-by
    2dup ( obj -- ? ) call-effect
    [ drop ] [ [ get-children ] dip xml-find-by ] if ; inline


USING: kernel modern.html sequences ;

M: sequence xml-find-by [ xml-find-by ] curry map-find drop ;


USING: combinators kernel modern.html strings ;

M: string xml-find-by
    2dup ( obj -- ? ) call-effect [ drop ] [ 2drop f ] if ;